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!•  Introduc t ion 


Tlie  purpose  of  this  report  is  to  describe  a program  written  to 
simulate  the  Honeywell  Time  Sharing  System  (Version  8)  operating 
on  the  Honeywell  635  computer. 

The  model  includes,  in  great  detail,  sections  of  the  TSS  Allocator 
as  well  as  the  TSS  Execute  e.  the  Derail  Processor  and  Line  Service. 

The  program  simulates  the  behavior  of  Subsystem  programs  and  the 
effects  of  the  scheduling  policies  of  TSS. 

The  simulation  program  being  described  here  is  written  in  the 
Simscript  II  programming  language.  Simscript  is  a high  level,  event 
oriented  simulation  language  with  several  features  t >at  are  very  helpful 
for  this  particular  use. 

The  program  was  written  and  developed  at  the  Systems  Engineering 
Laboratory  at  the  University  of  .Michigan  and  was  debugged  and  validated 

on  a Honeywell  3000  system  at  the  Rome  Air  Development  Center,  Rome. 

Mew  York. 
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2.  Event  and  Routine  Summary 

As  mentioned  before,  Slnacrlpt  is  an  evei.t  oriented  language  and 
hence  the  prograa  is  laade  up  of  several  small  events  and  routines, 
each  corresponding  to  a subroutine  or  block  of  code  of  TSS.  To  ease 
understanding  and  debugging  the  names  of  all  routines  and  events  have 
been  preserved  from  the  actual  system  program  listings  as  fiir  as 
possible. ^ 

The  events  and  roL tines  in  the  simulation  program  can  be  classified 
into  six  categories.  The  following  is  a list  of  the  categories  and  the 
routines  comprising  each  one  with  a brief  description  of  their  funcrions. 

2.1  Initialiaation 

INIT  - Reads  input  parameters  and  values.  Initializes  data  structures. 
Schedules  events  for  termination  and  diagnostic  printing. 

MAI.N  - Starts  simulation. 

2.2  Diagnostic  and  Output 

PDIAG  - Controls  printing  of  diagnostic  information  as  per  inout 
parameters. 

REINIT  - Reinitializes  statistic  counters  after  given  simulation 
period. 

CORSA.MP  - Samples  values  of  program  size,  hole  size  and  used  core  for 
collecting  statistics. 

MQPRINT  - Prints  memory  queue. 

CQPRINT  - Prints  processor  queue. 

STER.M  - Terminates  simulation. 

i 

In  certain  cases  where  two  names  have  the  same  first  four  characters, 
the  names  have  been  transformed  due  to  a Simscript  requirement  that  the 
first  four  characters  of  all  names  be  unique,  c.g.  ALLCCl  and  A1.LCC2  are 
renamed  as  lALLCC  and  2ALLCC. 


OL'Tl’L'T  - 1‘rints  sir.uiatio:i  re->ult‘?  .inti  scat  i .-jt : . 

n.'.'Ai’.R  - Prints  debugging  ano  diagnostic  infcrr.it  ion  in  , asc  tin.- 
sir.nlatlon  torran.ites  .ihr.orr.iliy. 

2.3  Alioca tor  Routine s 

ALLOCI  - Main  entry  point  to  t'nc  TSS  .illoc.ito:  .ind  tin-  rroc,.--.  01 
allocator  procc-ss  (PAl’). 

M.-\?  - Mor.ory  allocator  process.  SeU-ct*.  pr->yr.irs  tor  “.er.i  ry 
allocation  and  svap. 

SOP,  S:)P3,  <:)P^,  S;>P3.  -'id'-.  s:>p;  - Ss.ip  dc-.  iM-n  processor-..  r.n 
pregra-s  for  regular  and  fore-  s--.ins,  ‘.andU-  irgtnt  user  leg;.,  ..<re 
fence  for  urgent  u.->er  .ind  TSS  -v-ip  .irea  size  ■■'ntro'. 

SPMACT  - Special  r.c'r.ory  .i.-tisn  provess>r  or.in.ging  TsS  s-.-.ip 
area  size. 

MSA,  MBA3  - Mer.ory  buff.r  ai’.oc.u*'r  process.  Atte-rf-  re- 
allocation for  prograr-s  ,ind  -.mages  re-e^r. 

MBD  - Mor.iry  ^ufter  deal  loc.itor.  Kef.rns  rl.-.,.  re-.  r>  t 
available  storage  pool  in  r.er-'iy  r.ap. 

MMV  - Mer.crv  r.ip  veri  t icat  ion  rroies-..  Ai  .i, . iruI.Ut--  •-  ~.e 
core  Statistics. 

S»<''1T  - Svap  Out  routine. 

SWiS  - Swap  in  routine. 

SWPi.D  - Schedules  courtesy  v.ili  for  sw.i.i. 

SSKiM  - Ternlnatcs  s-,ibsyster  . \e.  uc  ion. 

Bl  FDMP  - Adjusts  s-ubsyster  st.itus  i.sr  ke'-roard  .r.put  in.i  -^ntj-.t 
ope rat  ions. 

RI03RT  - Schedules  kevho  .rd  i/0  vcurte-->v  ,.i'.  is. 


START  - introduces  new  subsvster.s  into  the  svs;,-r  and  ini  t ;.i  i . ^ 


subsystem  attributes. 

SACT  •'  Takes  subsystem  accounting  for  statistics. 

ATCHG  •'  Changes  subsystem  state  times. 

EXENTR  - Entry  to  allocator  via  an  interrupt. 

EXEACT  - Accounting  routine  after  return  from  subsystem  dispatch. 

2. A Derail  Routines 

KONDRL  - Keyboard  input  derail. 

KOTDRL  -■  Keyboard  output  derail. 

DRLDIO  - Disk  I/O  derail. 

DRLRET  - Subsystem  return  (termination)  derail. 

2.5  Courtesy  Calls 

KlOCC  - Keyboard  I/O  courtesy  call. 

DIOCC  - Disk  I/O  courtesy  call. 
lALLCC  - Swap  out  courtesy  call. 

2ALLCC  - Swap  in  courtesy  call. 

2.6  Line  Service 

LINSV  - Controls  TSS  action  during  relinquish  to  GCOS  and  TSS  idle. 
Also  schedules  new  program  arrivals  into  TSS. 

3.  Data  Structures 

Three  major  TSS  data  structures  are  modelled  in  the  program  exactly 
as  they  appear  in  the  real  system.  These  are  the  processor  and  memory 
queues  and  the  memory  map.  In  addition,  th ; model  also  has  a disk  I/O 
queue  and  a queue  of  scheduled  courtesy  calls.  The  purpose  of  these  is 
discussed  below.  Finally,  a program  in  TSS  is  modelled  by  means  of  an 
entity  called  a UST.  (The  name  IIST  was  chosen  because  the  entity 
closely  resembles  an  entry  in  the  User  Status  Table.) 
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3.1  The  UST  Entity 

Each  active  program  in  the  system  is  lepresented  by  a temporary 
entity  called  a UST.  An  entity  is  created  when  a new  job  arrives  and 
is  destroyed  wlien  it  terminates. 

Tlie  UST  entity  has  a number  of  attributes  some  of  which  are  similar 
to  those  found  in  the  TSS  user  status  table  and  otliers  wiiich  contiol 
the  activity  of  the  program. 

The  following  is  a list  of  the  attributes  of  the  UST  entity.  Tiie 
attributes  on  the  left  are  those  that  also  appear  in  the  TSS  user  status 
table  and  have  the  same  names  as  the  original  variables.  (Note:  Tlie 

digits  1 and  2 appended  to  a variable  name  signify  the  upper  and  lower 
halves  of  tl»at  word  respectively.)  The  attributes  on  the  riglit  are 
used  to  control  the  simulation  of  the  program  that  the  UST  represents. 

A desc’"i?tion  of  each  attribute  is  given  in  Appendix  1. 

UST  Attributes 


FK19 

CHKCPU 

FL18 

JO  UNO 

FL19 

KILL 

FL21 

NXTOIO 

FL22 

NXTKIN 

FL23 

NXTKOUT 

FL2A 

OUTGO 

FL34 

DiOIAT 

LSIZE 

LSPTS 

KllAT 

3 


LSTIO 


KOIAT 


LTC21,  LTC22 

LTC31,  LTC32 

LTCW 

LTIN 

LTMO 

LTMl 

LTM2 

LTM3 

LIMA 

LTH5 

LTMRS 

LTMWT 


Tlie  UST  entity  contains  the  entire  description  of  a program  in  the 
system.  It  Is  filed  in  the  different  system  queues  in  exactly  the  same 
manner  es  the  entries  in  the  TSS  user  status  table  are  linked  into  queues. 

Usually,  attributes  of  entities  are  referred  to  in  Simscrlpt  by  the 
expression: 

attribute  (entity  pointer) 

to  denote  the  particular  entity  whose  attribute  is  being  examined.  However, 
the  entity  pointer  can  be  omitted  and  the  default  global  entity  name 
'USX'  is  assumed.  Throught  most  of  the  program  such  a scheme  is  used  to 
refer  to  attributes  since  the  global  variable  'UST*  always  contains  the 
pointer  to  the  UST  am  which  the  allocator  is  presently  working. 
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3.2  The  Processor  Queue  - CPUC 


The  TSS  processor  queue  consists  of  a linked  list  of  user  status 
table  entries.  In  the  program,  this  queue  is  modelled  as  a simple 
ordered  Simscript  set  called  CPUQ.  UST  entities  are  filed  last  in  the 
set  and  the  first  entity  is  always  picked  for  allocation. 


3.3  The 


3ueue  - MEM( 


The  TSS  memory  queue  is  a linked  list  of  UST  entries  ordered  by 
in''reasing  program  sizes.  This  is  modelled  in  the  program  as  a set 
MEMQ  whose  members  (UST  entities)  are  ranked  by  low  LSIZE  attributes. 
When  new  UST's  are  filed  in  MEMQ,  Simscript  automatically  links  tliem  so 
that  the  increasing  order  of  the  LSIZE  attribute  is  preserved. 

3.4  The  Memory  Map 

The  memory  map  data  structure  is  almost  identical  to  its  TSS 
CO  interpart.  The  map  consists  of  a doubly  linked  list  of  blocks 
eaci  of  which  represents  one  program  present  in  core. 

The  memory  map  consists  of  five  vectors:  SJOB,  SHOLE,  SUC,  PRED 

and  ID.^TR.  Each  entry  in  the  map  is  represented  by  a corresponding 
clement  from'  each  of  the  above  vectors.  The  vectors  have  the  following 
functions : 

SJOB(I)  - contains  the  program  size  of  the  program  (in  units  of 
1024  words) . 

.'HOLE(I)  - contains  the  size  of  the  "hole"  (unused  portion  of  core) 
following  the  program  in  core  (in  units  of  1024  words). 

SUC(I)  - pointer  to  the  entry  in  the  map  succeeding  this  entry. 

PRED(I)  - pointer  to  the  entry  in  the  map  preceeding  this  entry. 

IDPTR(I)  - contains  the  identification  number  attribute  (.lOUN'O)  of 


the  UST  entity  that  corresponds  to  this  entry  in  the  memory  map. 

The  first  entry  in  the  memory  map  ic  always  a dummy  entry  which 
belongs  to  no  program  but  is  kept  merely  to  hold  the  hole  size  at  the 
top  of  TSS  core.  The  variables  HEAD  and  TAIL  point  to  the  first  and 
last  entries  in  the  map  respectively.  A possible  memory  map  configura- 
tion is  shown  in  Figure  i below. 


Figure  1.  Memory  Map  Configuration 


In  the  example  of  Figure  1 the  values  of  HEAD  and  TAIL  would  be 
1 and  6 respectively. 
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3.5  The  Disk  1/0  Queue  - DIOQ 


Since  no  data  is  obtained  on  the  service  time  jf  tlie  disk  us'its  tli-: 
prograr.i  uses  an  artificial  disk  1/0  queue  to  simulate  ilie  handling  of 
disk  I/O  operations. 

T!ie  disk  I/O  queue  is  a fifo  queue  and  is  modelled  witli  a single 
exponential  server.  T'e  formula  for  obtaining  .le  exi)onent i al  server 
rate  from  the  measured  values  of  the  disk  1/0  queue  and  disk  I/O 
operation  ariival  rate  is  described  in  Reference  1. 


3.6  The  Court esy  Cai 1 Que uc  - CCQ 

Tile  courtesy  call  queue  is  strictly  for  the  ;rna?  use  of  tlie 
model  and  docs  not  exist  in  the  real  system.  Tlie  purpose  of  t!iis 
queue  is  to  accurately  simulate  the  arrival  of  scheduled  cou»'tesy 
calls  when  they  interrupt  the  execut'on  of  a subsystem  program. 

In  the  3ctu.il  svslen:  a courtesy  call  would  generate  an  interrupt  to 
TSS.  In  the  model,  this  interrupt  is  generated  with  t!ie  help  of  t!ie 


The  CCQ  consists  merely  of  a list  of  all  future  courtesy  call» 
ordered  by  increasing  arrival  rimes.  i.Tien  a new  courtesy  call  is 
scheduled  it  is  entered  in  tiie  queue  at  tiie  appropriate  position 
depending  on  its  arrival  time.  When  a courtesy  call  arrives,  it  is 
removed  from  the  CCQ.  N'otn  that  at  this  time  it  should  be  at  t!ie 
head  of  CCQ  and  the  simulation  time  will  be  equal  to  its  arrival  time. 

Wlien  the  TSS  allocator  dispatches  the  CPU  to  a subsystem,  it 
checks  to  see  if  a courtesy  call  would  be  ci^e  i.ext  event  to  interrupt 
the  subsystem.  This  is  done  by  checking  the  arrival  time  of  tiie  first 
entry  in  the  CCQ.  If  that  is  the  case,  an  interrupt  and  consequent 


o 


entry  into  the  allocator  is  scheduled  inmediately  following  the 
courtesy  call. 

4.  Input  Parameters 

The  input  t<j  the  simulation  program  is  divided  into  three  categories 
as  follows.  For  each  category  the  input  parameters  are  given  in  the 
order  in  which  they  must  appear  in  the  input  stream.  The  desigziations 
(R)  and  (I)  specify  the  mode  of  the  variable  as  real  or  integer 
respectively.  All  time  values  are  in  milliseconds  and  all  memory  values 
are  in  units  of  1024  words  unless  otherwise  stated. 

4.1  Diagnostic  and  Control 

These  input  values  control  the  execution  of  the  simulation  program 
and  the  printing  of  diagnostic  comments.  The  form  of  messages  printed 
is  described  fully  in  Section  5.6. 

STOPTIME  - (R)  Value  of  simulated  time  at  which  the  simulation  is 
to  be  terminated. 

DEVS  - (I)  Event  diagnostics  switch.  If  this  switch  is  set  to  1, 
a message  is  printed.  Tf  no  diagnostics  are  required  this  switch  must 
be  0. 

DRS  - (I)  This  switch  Is  similar  to  DEVS  but  is  for  allocator 
routines. 

DQS  - (I)  If  this  switch  is  non-zero,  th.e  MEMQ  or  CPUQ  are 
displayed  whenever  that  queue  is  changed. 

DMS  - (I)  If  this  switch  Is  non-zero,  the  memory  map  is  displayed 
every  ti'if’  it  is  c'nangcd. 

OSIS  - (I;  If  this  switch  is  non-zero,  a message  is  printed  everv 
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time  the  TSS  swap  area  size  is  changed,  and  a sample  of  core  utilization 
is  displayed  at  every  call  of  routine  MMV. 

DUS  - (1)  If  this  swltc*'  is  non-zero  a message  is  printed  for 
evei^r  urgent  user  detected  and  every  force  swap  performed. 

DKS  - (1)  If  thio  switch  i;-'  non-zero  a message  is  printed  for 
.'•ach  key  I/O  derail  and  courtesy  call. 

DSS  - (I)  If  this  switch  is  non-zero,  a message  <s  prin*'_a  i t the 
start  and  termination  < i;  every  subsystem. 

DBEGIN  - fR)  Simulation  time  at  which  diagnostic  printing  is  '■j 
begin. 
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DDUR  - (R"*  Duration  of  diagnostic  printing. 

STREAM(l)  . . . STUEAM(IO)  - (I)  These  ten  integer  nimbers  are  used 
as  seeds  for  the  ten  Simscript  pseudo-random  number  generators. 

4.2  TSS  Param.ters 

These  input  values  consist  of  various  TSS  parameters  that  are  use  ', 
by  the  allocator  for  decision  making.  These  parameters  are  descrj.d 
more  fully  in  Reference  2,  TSS  Executive  SrfD.  The  values  of  each 
parameter  in  the  system  can  be  obtained  frosi  the  listing  of  the 
communications  region,  TSSA. 
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AMFTM  - (R)  Maximum  core  fence  maintenance  time. 

LNSF  - (1)  Number  of  swap  files. 

TASVn  - (R)  Minimum  memory  allocation  wait  time  to  cause  further 
memory  allocation  and  swap  actions. 

TAMIS  - (R)  Maximum  high  priority  service  program  size. 

TALPP  - (R)  Large  program  penalty  factor. 

TASWF  - ('.<)  Factor  for  program  urgency  calculation. 

TASI;)  - (R)  Damper  for  urgent  user  size  increases. 


TLTLK  - (R)  Maximum  time  between  line  service  calls. 

TAMII  - (I)  Minimum  memc. v size  increase  increment. 

TAMMS  - (T)  Maximum  TS'S  sw.p  ci-ia  size.  (In  the  real  system  this 

is  total  TSS  memory  size., 

AMTQ  - ^R)  Minimum  ^ 5re  residency  time  before  consideration  for 
force  swap. 

TAGMI  - (R)  Minimum  tlrov  between  reques*  .'or  corj  size  Increases. 

TATfiC  - (R)  Maximum  tii  ' for  core  size  change  to  stay  pending. 

TATMD  - (R)  Delay  before  scheduled  s.ize  teduction  is  completed. 

TAMAW  - (R)  Delay  befc.:e  infenning  user  "NOT  ENOUGH  CORE  TO  RUN 

JOB". 

TLNLM  - (R)  Minimum  time  between  periodic  line  service  functions. 

TASMS  - (I)  Minimum  TSS  svap  area  size.  (In  the  real  system  this 
is  total  TSS  memory  size.) 

TA.MRI  - (R)  Minimum  time  between  size  reduction  considerations. 

TiVPMR  - (R)  Value  of  TAPMU  above  which  memory  reductio.c  in  not 
requested. 

TASRI  - (I)  Memory  size  reduction  amount. 

TASCF  - (R)  Minimum  interval  between  '’-gt-nt  user  size  increa'es. 

ASD3I  - (R)  .Minimum  in  interval  between  entries  to  SDR3  for  scar, 
of  urgent  users. 

TCDEL  - (R)  Time  slice  frr  each  subsystem  dispatch. 

!Li  3 Driving  Data 

The  data  under  this  category  consists  of  the  data  collected  from 
the  actual  system  that  is  to  be  used  to  drive  the  model.  All  this  data 
is  obtained  from  the  real  systems  j=  ng  T.^S  accounting  records  and  the 
programs  mentioned  in  References  3 and  A. 
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INITCORE  - (I)  Initial  TSS  swap  area  size. 

INTMEAN  - (R)  Mean  interrupt  interarrival  times  (cpu  time/ interrupt) . 
HNDELAY,  HXPELrtY  - (R)  Lower  and  upper  limits  for  a uniform 
aistribution  of  time  delay  after  each  interrupt. 

DIOMEAN  - (R)  Mean  disk  I/O  service  time  (real  time). 

OL'TMEi\N  - (R)  Maan  duration  of  a keyboard  output  operation  (real 
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5 
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time). 

L'STIAT  - Distribution  of  subsystem  interarrival  times  (real  time/ 
subsystem) . 

NOKIN  - (1)  Distribution  of  keyboard  inputs  per  subsystem. 

NOKOUT  - (I)  Distribution  of  keyboard  output  per  subsystem. 

NODIO  - (I)  Distribution  of  cll'ik  I/O's  per  subsystem. 

SWAPDUR  - (R)  Distribution  of  swap  channel  service  time  (real  time). 

CPUDUR  - (R)  Distribution  of  cpa  time  used  by  subsystems. 

KIODUR  - (R)  Distribution  of  keyboard  input  durations  (real  time). 

SIZEDIST  - (I)  Distribution  of  suDsystem  program  sizes. 

The  input  data  must  be  terminated  with  the  number  9999.  The 
program  uses  this  as  a check  to  make  sore  the  input  data  had  the  correct 
number  of  data  elements. 

Figure  2 shews  a sample  input  data  set- 


n 


f f 1 r5»’rirwr«r'wii"«  a" 


% 

l^ 

i 
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10  10800000  0 a 0 0 0 0 0 0 lO^OCOOl  0 5600000 
20  08?75  78'>85  '^5300  3 ?3'?«  523^0 
30  22  164  2436'5  !<215  652<^8  54224 

40  20000  4 3000  36  4 .008  |0''>0  500 

50  7 58  7000  I4O00  60000  30000  150O00  30O0 

60  2 0 ^00000  75  5 30000  1000  25 

70  40  30  7 16  38.3  2200 

8C  o 7 .31  I1C12  .53  o-M!  .5«^  337''  .7!  5333  .^13  7323  ''4:4 
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1 70  .057  ig  .57  20  .072  22  .073  24  .ogl  25  .034  2o  30 
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200  .876  8 .807  o .t-'-.o  ;c  .qh  ||  .<^23  12  .932  13  .04.  14 

21P  .'546  10  .343  20  .051  21  .053  '.6  .056  2o  .o5g  30  .065  31 

220  .067  33  .07  36  .070  40  .981  56  .og4  52  .036  go  .988  09 

230  .901  148  .003  S5‘;  .005  no!  .oog  2023  1.0  4585  * 
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250  .573  330.4  .820  43  1.8  .883  4®o.6  1 .0  7®0  * 
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272  .657  50.8  .7so  07.6  .go2  4 72.2  .013  800  .032  140o 

2®"  ! .C  30017  * 

?.00  0 0 .001  2275  .023  5®52  .234  654''  .386  11330  .3no  13250 

320  .507  17070  .5  16  I80>0  .535  22810  .'^4  24  730  . 738  28550 

310  .753  32380  . 7og  368', 0 .n5  1 38120  .865  4 1 05  0 .oi5  45  770 

32?  .932  5343'''  .'05I  55540  .053  6108-.  .065  763oQ  .071  78300 
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5.  Output 


The  normal  simulation  output  consists  of  five  categories  as 
described  below.  Hie  final  section  deals  with  output  messages  printed 
when  the  diagnostic  switches  are  set  on. 

5.1  Input  Echo 

The  first  part  of  the  output  consists  of  an  echo  of  the  entire 
Input  data  except  for  the  distributions  in  Section  4.3. 

5.2  Memory  Statistics 

The  mean  and  standard  devio»-iofj  of  the  following  TSS  swap  area 
statistics  are  printed. 

1.  Program  sizes  in  core. 

2.  Hole  sizes. 

j.  Total  swap  area  size. 

4.  Total  used  core  size. 

5.  Percentage  core  utilization. 

The  values  in  this  section  are  accumulated  automatically  by 
Simscript  every  time  their  values  are  sampled  in  routines  MHV  and  CORSA.MP. 

5.3  Overall  Mean  Rates 

This  section  contains  the  mean  rate  of  occurrence  per  hour  of  the 
following  TSS  events  and  pro'-csses. 

1.  Keyboard  inputs. 

2.  Keyboard  outputs. 

3.  Disk  I/O's. 

4.  Swap  outs  (total). 

5.  Swap  outs  (due  to  keyboard  I/O). 

6.  Swap  out-i  (due  to  key  output  only). 

7.  rorce  >w.ip-.. 

8.  TSS  swap  arc.i  size  i:i(  re.ises. 
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9. 

TSS  swap  area  size  decreases. 

& 

£- 

10. 

Total  subsystem  CPU  time. 

1 

f 

11. 

Subsystem  starts. 

1 

c 

f 

12. 

Subsystem  terminations. 

? 

13. 

Dispatches  of  the  CPU  to  subsystems. 

r 

14. 

Urgent  users  detected. 

i, 

e 

15. 

Entries  to  Processor  Allocator. 

1 

16. 

Entries  to  Memory  Allocator. 

’ 

17. 

Allocator  idles. 

; 

18. 

Interrupts. 

19. 

Total  core  swapped. 

These  itjms  are  accuaulated  explicitly  in  the  prograa  and  converted 
to  hourly  rates  in  routine  OUTPUT. 

5.4  Typical  Subsystem  Behavior 

This  section  contains  infonaation  on  the  behavior  of  a typical  sub- 
system that  executed  during  the  simulation  period.  These  statistics  are 
collected  at  each  subsystem  termination  as  In  the  real  system  .‘or  the 
TSS  accounting  records.  (See  Ref.  3). 


1. 

Subsystem 

1 interarrival  time. 

2. 

Keyboard 

input  interarrival  time. 

3. 

Keyboard 

output  Interarrival  time. 

4, 

Disk  I/O 

interarrlval  time. 

5. 

Program  size. 

6. 

CPU  time 

(sampled) . 

7. 

CPU  tine 

(used) . 

8. 

Response 

time  (R19). 

9. 

Response 

time  (individual). 

10.  Tioe  sptnt  in  each  time  state: 

(a)  Non-cscful  core  residency. 

(b)  Swap. 

(c)  Useful  core  residency. 

(dl  Out  of  core. 

(e)  Awaiting  nemory. 

(f)  Awaiting  menory  after  being  force  swapped. 

11.  Keyboard  inputs. 

12.  Keyboard  outputs. 

13.  Disk  I/O's. 

14.  Force  swaps. 

15.  Total  swaps. 

Itens  1 through  6 are  obtained  froia  the  saaplcs  of  the  input 
distributions  and  are  useful  for  verifying  that  the  input  distributions 
were  correct. 

Iteas  6 and  / differ  because  the  femer  is  the  saapled  tiac  whereas 
the  latter  is  coaputed  only  on  those  subsysteas  that  tcrainate  during 
the  siaulatlon  period. 

I tea  8 is  the  response  tiae  as  coaputed  f roa  the  TSS  accounting 
records  in  Reference  3.  This  response  tiae  is  the  total  response  tiae 
divided  by  the  total  nueber  o:  keyboard  inputs  and  outputs.  Tiie 
"individual"  response  tire  consists  of  sarples  of  response  tire  taken  at 
every  courtesy  call  for  a keyboard  operation. 


5.5  Svscea  Queue  Data 


Thi.s  section  gives  Infora.it  ion  on  the  average  nuaber  of  subsysteas 


in  each  systca  queue  as  well  as  the  average  nuaber  ~f  suhsvstcas 


beginning  SIMULATI0N  AT  0. 


ST0PTIME  DEVS  DRS  DQS  DMS  DSCS  DUS 
i OROOOOO. 000000  000000 


DKS  OSS  DBEGIN  DDUR  INITIME 
0 0 10800001.000000  0.  3600000.000000 

RAND0M  NUMBER  SEEDS 
5 7839 
84934 
62  192 
722  06 
58023 
34548 
34886 
88730 
75442 
78955 


AMFTM  LNSF  TASWT  TAM  IS  TALPP  TASWF  T*SID 

20000. OCOOOO  4 3000.000000  36  4 .008000  1000.000000 


TLTLM  TAMII  TAMMS  AMTQ  TAGMI  TATMC  TATMD 

500.000000  7 58  7000.000000  14000.000000  60000.000000  30000.000000 


TAMAW  TLNLM  TASMS  TAMRI  TAPMR  TASRI  TASCF 

150000.000000  3000.000000  20  300000.000000  75  5 30000.000000 


ASD3I  TCDEL  INITC0RE  INTMEAN  MNDELAv  MXDEL  Av  DI0MEAN 

1000.000000  25.000000  40  30.000000  7.000000  16.000000  88.2'>0')'39 


0UTMEAN 

2200.000000 

SIMULATION  TERMINATION  AT  10800000.000 


C0RF  STATISTICS  MEAN  STANDARD  DEVIATION 
PROGRAM  SIZES  7.677  4 .5<J893 
HOLE  SIZES  4 .980  9.1 1604 
SWAP  AREA  SIZE  48.785  8.08320 
TOTAL  USED  CORE  26.746  12.83447 

PERCENT  CORE  USED  54.265  24  .29143 


Figure  3.  Sample  Simulation  Output 
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OVERALL  MEAN  RATES  (PER  HCuK) 

KEYBOARD  OUTPUTS  2338.00 

KEYBOARD  INPUTS  1665.50 

DISK  I/OS  12188.50 

SWAP  OUTS  1881.50 

SWAP  OUTS  (KEY  1/0)  1827.00 

SWAP  OUTS  (KEV  OUTPUT)  55  1.50 

FORCE  SWAPS  46.50 

SIZE  INCREASES  4.50 

SIZE  DECREASES  6.00 

SUBSYSTEM  CPU  TIME  852245  .<)06  •'*«. 

SUBSYSTEM  STARTS  760.50 

SUBSYSTEM  KILLS  754  .50 

SUBSYSTEM  DISPATCHES  6')012.50 

URGENT  USERS  4 7.00 

ENTRIES  TO  PAp  80558.00 

ENTRIES  TO  MAP  Q302.00 

ALLOCATOR  IDLES  11545.50 

INTERRUPTS  6S003  .00 

TOTAL  CORE  SWAPPED  13017.50  K 


SUBSYSTEM  STATISTICS  MEAN  STANDARD  DEVIATION 

SUBSYSTEM  lAT  4737.04  6200.02 

KEY  INPUT  lAT  178.42  1453. OQ 

KEV  OUTPUT  lAT  242.71  17^0.60 

DISK  I/O  I AT  62.38  881.83 

PROGRAM  S IZE  R. 14  5 .03 

CPU  TIME  (SAMPLED)  1146.56  5 178,26 

CPU  TIME  (USED)  1080.62  5006.86 

RESPONSE  TIME  (RI8)  3238.88  22184.43 

RESPONSE  TIME  (INDIVIDUAL)  1740.16  13153.81 

TIME  IN  STATE 

NON-USEFUL  CORE  8158.78  31824  ,4$ 

SWAP  1 607.56  4385  .30 
USEFUL  CORE  5053.05  28368.11 
OUT  OF  CORE  34856.78  150524.82 
AWAIT  MEMORY  347.57  1776.40 
AWAIT  memory  after  FS  30.81  336.83 
NO.  OF  KEY  INS  I .85  7.52 
NO.  OF  KEY  OUTS  5.10  11.25 
NO.  OF  DISK  I/O's  15  .43  185  .43 
NO.  OF  FORCE  SWAPS  .06  .43 
NO,  OF  SWAPS  4 .80  13 . 15 


QUEUE  LENGTHS  MEAN  STANDARD  DEVIATION 

PROCESSOR  QUEUE  1.11  1.17 

MEMORY  queue  11.23  2.81 

DISK  I/O  QUEUE  .40  .68 

USERS  SWAPPING  .35  .80 

USERS  I N CORE  3 .4p  1 .78 

URGENT  USERS  .02  .16 

USERS  WAITING  FOR  CORE  .48  .54 

USERS  0,  IGIPLE  FOR  CPU  .83  1.06 


Figure  3 (Contd.).  Sample  Simulation  Output 
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performing  special  activities » 

1.  Processor  queue. 

2.  Memory  queue. 

3.  Disk  I/O  queue. 

4.  Number  of  users  swapping. 

5.  Number  of  users  in  core. 

6.  Number  of  urgent  users. 

7.  Number  of  users  waiting  for  core. 

8.  Number  of  users  eligible  for  the  CPU. 

The  queue  lengths  are  maintained  and  accumulated  by  Simscript 
automatically.  The  other  items  are  updated  explicitly  and  accumulated 
automatically. 


Figure  3,  on  the  following  page,  shews  a sample  simulation 


output. 


5.6  Diagnostic  Output 

This  section  describes  the  types  of  messages  printed  when  each  of 
the  diagnostic  switches  described  in  section  4.1  are  turned  on. 

1.  DF.VS  - A message  of  the  type 

eeee  AT  ttttt.t 

is  printed  whenever  an  event  is  entered,  eeee  is  the  event  name  and 
ttttt.t  is  the  simulation  time.  For  events  that  are  associated  with  a 
subsystem  (e.g.  derails  and  courtesy  calls),  one  of  the  phrases 

BY  nnnn 
FOR  nnnn 
OF  nni.n 
TO  nnnn 

are  post fixed  to  the  message  as  appropriate,  nnnn  is  the  subsystem  index 


number. 


intr^  « ' - 


I 

1 


I 


This  switch  also  causes  the  printing  of  the  message 
START  AT  ttttt.t  OF  nnnn  SIZE  « cccc 

CPU  = sssss.s 

in  routine  START.  cccc  and  sssss.s  are  the  program  size  and  cpu  time 
allocated  to  the  new  subsystem. 

2.  DRS  - A message  of  the  type 

rrrr  CALLED 

is  printed  at  the  beginning  of  every  routine  execution,  rrrr  is  the 
name  of  the  routine.  This  message  is  not  printed  for  routine  START. 

3.  DQS  - The  MEMQ  and  CPUQ  are  printed  whenever  their  members  are 
changed  or  rearranged.  The  UST's  in  the  queue  are  print-d  in  the  order 
in  which  they  appear  in  the  queue.  For  each  UST  the  following  line  is 
printed. 

nnnn  bl  b2  b3  b4  b5  b6  b7  s 
nnnn  is  the  index  number  of  the  UST.  bl  through  b7  represent  the  flag 
word  bits  FL18,  FL19,  FL21,  FL22,  FL23,  FL24  and  FL34  respectively, 
s represents  one  of  six  states  that  the  UST  can  be  in.  s takes  on 
values  from  0 through  5 and  represents  the  following  subsystem  states: 

0 Non-useful  core  residency. 

1 Swap . 

2 Useful  core  residency. 

3 Out  of  core. 

4 Awaiting  i..emory. 

5 Awaiting  memory  after  force  swap. 

4 . QMS  - The  memory  map  is  printed  whenever  it  is  altered.  For 
each  entry  in  the  map  the  following  line  is  printed 

nnnn  pppp  hhhh 
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where  nnnn  is  the  UST  index  number,  .-ppp  is  its  program  size  and  hhhh  is 
the  size  of  the  hole  succeeding  the  program  in  core.  The  first  entry  in 
the  core  map,  which  is  a dummy  entry  has  .an  undefined  value  for  nnnn 
and  a program  size  of  zero. 

5.  DSCS  - A message  is  printed  whenever  TSS  core  size  is  changed. 
The  two  possible  messages  are: 

SIZE  INCREASED  TO  ssssK  AT  ttttt.t 

SIZE  DECREASED  TO  ssssK  AT  ttttt.t 
where  ssss  is  the  new  core  size  and  ttttt.t  is  the  time  of  the  size 
change.  In  addition,  whenever  routine  CORSAMP  is  called  (at  the  start 
of  every  subsystem)  the  values  of  total,  used  and  percent  core  used  are 
printed  as  follows: 

AT  ttttt.t  TOTCOR  = sss  USED  = ttt  = ppp.p%  (MEAN  = mian.m%) 

6.  DUS  - A message  is  printed  whenever  an  urgent  user  is  detected 
and  a force  swap  is  performed. 

The  urgent  user  message  is: 

nnnn  FOUND  URGENT  FOR  sssss.s  MS.  AT  ttttt.t 
where  nnnn  is  the  UST  index  number,  sssss.s  is  the  time  elapsed  since 
this  UST  was  first  discovered  urgent,  and  ttttt.t  is  the  current 
simulation  time. 

The  force  swap  message  is: 
nnnn  FORCE  SWAPPED  AT  ttttt.t 

7 . DKS  - A message  is  printed  at  every  keyboard  input  and  output 
derail  and  courtesy  call.  The  derail  messages  are: 

nnnn  START  INPUT  AT  tttt.t  UNTIL  ssss.s 

nnnn  START  OUTPUT  AT  tttt.t  UNTIL  ssss.s 


s 


Tlie  courtesy  call  messages  are: 


mmn  FINISHED  KIO  AT  ctt.t  . 


where  nnnn  and  tttt.t  are  as  before,  and  ssss.s  is  the  time  of  the 
scheduled  courtesy  call  for  the  I/O  operation. 

8.  DSS  - Messages  are  printed  at  the  start  and  termination  of 
every  subsystem.  The  start  message  is  identical  to  that  for  DEVS. 

The  termination  message  is: 

STOP  aT  tttt.t  OF  nnnn  KIN  = iii  KOUT  = jjj 

TOT  RESP  = sss.s  CPU  ALLOC  = uuuu.u  USED  = ww.v 

where  nnnn  and  tttt.t  are  as  before,  iii  and  jjj  are  the  total  keyboard 
inputs  and  outputs  performed  by  the  subsystem  respectively,  sss.s  is  the 
total  response  time  accumulated,  uuuu.u  and  vwv.v  are  the  CPU  time 
allocated  to  the  subsystem  and  total  time  used  by  it  and  must  always  be 
equal  (See  Sec.  8). 


6.  Using  the  Program 


The  program  was  tested  and  run  on  a Honeywell  6000  computer  under 
the  GCOS  operating  system.  The  use  of  this  progc-m  is  covered  in  two 
sections,  compilation  and  execution. 

6.1  Compilation 

The  program  can  be  compiled  by  the  CACI  Simscript  II. 5 compiler  for 
HIS  600/6000  comp  ters  (USAF  release  9).  Compilation  requires 
appro'cimately  61  C words  of  storage  and  7 minutes  of  processor  time. 

The  following  deck  would  compile  the  program  in  the  source  file  SIM 
and  store  the  object  deck  in  the  file  SIMOB. 


ICOO  «S,U,J 
ICIO  $ 


iDEarr 


,8,16,32 

BFCAUMOl.MULLA  J ,558102110001 ,UNIV.  OF  MICHIGAN 


1 

X 

& 

% 

1020 

$ 

PROGRAM 

RLHS,0N5,DECK 

\ 

% 

s 

1030 

/s 

LIMITS 

13,61K,,10K 

i 

L 

£ 

1 

1040 

$ 

PRMFL 

H*,R,R,SMSCP2.5/C0MPILER 

L' 

r: 

s 

1 

1050 

$ 

FILE 

*1,X1R,20L 

i 

i'- 

\ 

1060 

$ 

FILE 

*2,X2R,20L 

1070 

$ 

FILE 

B*,B1S,20L 

' 

1080 

$ 

PRMFL 

C* , R/W, S,BFCAUMO1/SIM0B 

t 

1090 

$ 

SELECTA 

BFCAUMOl/SIM 

L' 

f 

] 

1100 

$ 

ENDJ^B 

C 

To 

compile 

the  program  from  TSS  the  following 

must  be 

Issued. 

It  is  assumed  that  the  above  lines 

SYSTEM  ? CARDIN  ^LD  C<DMP 

READY 

*RUN 

SNUMB  9 1234T 

* 

To  examine  the  output  of  the  compiiation  from  TSS  the  following 
commands  must  fae  entered. 

SYSTEM  ?J6UT  1?1<4^ 

FUNCTION? SCAN  74 

FgRMlDUMP 

EDIT7YES 

? PRINT  /***  ERRgR/;* 

?DgNE 

FUNCTI0N7DIRECT  gNL 
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i. 

t 
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If  no  error  cor-saents  are  printed  in  response  to  <.he  print  connnand 
it  indicates  that  the  compilation  was  error-free. 


6.2  Execution 

To  execute  the  program  the  following  comrsands  are  required . 
Execution  requires  25  K words  of  storage  and  approximately  fifteen 
minutes  of  processor  time  for  every  hour  simulated.  It  is  assumed  that 
the  data  to  be  used  is  in  the  file  SIMDATA. 


1000  //S.U.J  ,8,16,32 

1010  5 IDENT  BFCAUM01,MULLA  J ,558102110001,UNIV.  0F  MICHIGA« 

1020  § L0WL0AD 

1030  $ «PTI(5N  FORTRAN 

1040  $ LIBRARY  SL 

1050  $ SELECT  BFCAUMO1/SIM0B 

1060  $ EXECUTE 

1070  $ LIMITS  50,25K,-3K 

1080  $ PRMFL  SL,R,S,SMSC?2. 5/LIBRARY 

1090  S PRMFL  17,R,S,SMSCP2.3/ERR0RS 

1100  $ FILE  B*,B1R 

1110  $ DATA  I* 

1120  $ SELECTA  BFCAUMOl/SIMDATA 

1130  S ENDJ0B 

To  run  the  program  from  a terminal  the  following  underlined 
commands  must  be  entered.  Ir  is  assumed  that  the  above  GCOS  commands 
are  In  the  file  RUN. 
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SYSTEM  ’CARDIN  0LD  RUN 


READY 


SNUMB  if  5678T 


To  ex<iiatr.e  the  output  from  the  program  on  TSS  the  following  commands 
must  be  issued. 

SYSTEM  ?jaUT  5678T 
FUNCTIjiN’PRINT  06 


7.  Detailed  Program  Description 


The  following  is  a detailed,  line  by  line  description  of  each  routine 
and  event  in  the  program.  The  order  is  as  in  the  program  listing  in 
Appendix  3. 


7 . 1 PREAMBLE 


8-11 


Text  substitutions  for  the  compiler. 


18-33 


Random  variable  distribution  entities.  See  Section  4.3. 


38  - 49  Definition  of  US’"  entity  and  its  attributes. 

50  Definition  of  memory  queue  ordering  on  LSIZE  attribute. 


54  - 65 


Definition  of  e> snt  routines. 


Definition  of  CCQ  set  and  its  limited  attributes. 


70  - 71 


Definition  of  memory  map  arrays. 


72  - 91 


Definition  of  global  variables.  See  Appendix  1 for  details. 


95  - 134  Definitions  of  variables  tor  automatic  collection  of 


statistics  and  global  counters. 
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7.2  IN  IT 


1A5  - J62 


163 

164  - 167 
172 

176  - 183 
187  - 189 
192  - 195 

7.3  MAIN 
201 
202 

7.4  PDIAG 
212  - 215 

218  - 220 


Read  and  echo  Input  dac.a  from  sections  4.1  and  4.2. 
(Diagnostic  control  and  TS3  parameters). 

Read  input  values  for  distributions  in  Section  4.3. 
(Driving  data). 

Read  check  and  stop  if  it  is  not  9999. 

Reserve  array  locations  for  memory  map  vectors. 
Initialize  memory  map.  Link  ail  blocks  in  a doubly 
linked  list.  Create  dummy  block  as  first  one  in  map. 
Schedule  the  arrival  of  the  first  subsystem  and  I/O 
interrupt. 

Schedule  entry  to  allocator  termination  of  simulation, 
and  event  to  test  diagnostic  switches. 

Call  INIT  to  initialize  program 
Start  simulation  clock. 

If  the  call  is  at  the  begi.ining  of  the  diagnostic  period 
set  all  intern,'  switches  to  the  values  read  in  INIT. 

At  the  end  of  the  diagnostic  period  reset  all  switches 
to  zero. 


7.5  REINIT 

226  - 233  Call  Simscript  generated  rvnstines  :nii  i’l  i.-’e  d-inUcrs 
for  TALLY  and  ACCUMULATK  v.>riable.s. 

235  - 238  Reset  all  global  counters  to  zero. 
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7.6  CORSAMP 
246  - 253 

254 

255  - 256 

7.7  MQPRINT 
262  - 268 

7.8  CQPRIN’T 
274  - 280 

7.9  STERM 
286 

7.10  OUTPUT 
291  - 292 
296  - 304 
308  - 331 

335  - 364 

368  - 380 

7.11  Sb’Af.^ 
389  - 393 
394 


Scan  through  the  memory  map  and  add  up  the  program  sizes 
in  USEDCORE  and  both  program  and  holes izes  in  TOTCOR. 
Calculate  percent  core  used  In  PERUSED. 

Print  core  size  and  percentage  used  for  diagnostics. 


For  each  UST  in  the  memory  queue  print  the  index  number, 
flag  word  bits  and  state  number. 


Do  the  same  as  MQPRINT  for  each  UST  in  the  processor  queue. 


Call  OUTPUT  to  print  simulation  results  and  then  terminate 

the  simulation.  v 

Print  time  at  which  simulation  was  terminated. 

Print  memory  utilization  statistics. 

Print  the  number  of  certain  TSS  events  that  occurred  per 
hour  during  the  simulation  period. 

Print  statistics  on  an  average  subsystem  the  executed 
during  the  period. 

Print  statistics  on  queue  lengths. 


Print  next  arrival  time  for  each  event  in  the  program. 
Print  arrival  time  of  derails  for  the  UST  that  was  being 
served  last  by  the  allocator. 
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397  - 398  Print  arrival  times  of  all  courtesy  calls  in  the  CCQ. 


7.12  ALLOC I 


7.13 


Call  OUTPUT  to  print  sinulation  results  up  to  this  point. 


409  - 410  Call  UNSV  or  MAP  if  their  respective  flags  are  set. 

413  - 414  Increment  count  of  entries  to  allocator  and  set  allocator 


41''  - 417  Scan  CPUQ  for  jobs  that  aie  n.'t  doing  1/0  and  lot 
swapping. 

419  See  if  job  found  is  schedul*<  for  force  swap.  If  so  call 


420  If  not  call  RLTSSX  to  dispai  .;h  cpu  to  job. 

421  Reset  the  UST's  new  subsystem  bit, 

426  - 428  If  no  jobs  eligible  for  cpu,  reset  allocator  flag  and  go 
to  LINSV. 


Increment  count  of  entries  to  MAP. 


437  Reset  nap  flag. 

440  If  special  memory  action  flag  is  call  SPMACT. 

441  Set  tine  of  last  entry  into  MAP 

443  If  no  urgent  user  is  waiting  go  t>  \1’.2A. 

444  If  urgent  user  can  fit  in  current  .o.  .r  fence  go  to  MAP. 3. 

445  - 447  If  he  has  been  urgent  for  more  thi’  AiFTM  ns.  reject  him 

and  clear  the  core  fence. 

451  - 452  Scan  MEMQ  for  jobs  that  are  not  doia  -eyboard  I/O,  not 
in  core  and  not  swapping. 

454  If  Such  a job  was  not  force  swapped  to  :o  MAP. 4 and  try 

to  swap  him  In  immediately. 
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455  Otherwise  remember  the  first  Job  we  find  eligible  for 

swap  in. 

459  - 460  If  no  swap  candidate  was  found  and  no  special  memory 
action  is  waiting  return  to  ALLOCI. 

461  ••  463  If  special  memory  action  wait*ng.  call  swap  decision 
processor. 

467  If  swap  candidate  was  found  call  MBi\  to  allocate  storage. 

470  - 473-  If  allocation  was  unsuccessful  call  swap  decision  processor. 

476  If  successful,  call  SWI.S'  to  swap  him  in. 

477  - 478  Return  to  MAP  to  allocate  storage  for  the  next  program. 

481  - 484  If  urgent  user  got  core,  destroy  the  core  fence. 

485  - 487  If  he  is  in  the  MEMQ  and  still  needs  core  call  MBA  to 

allocate  it.  Otherwise  go  to  MAP. 3 to  look  for  another 
swap  candidate. 

7.14  SDP 

496  - 497  If  more  swaps  are  in  progress  than  there  are  swap  files, 
go  back  to  ALLOCI. 

498  Reset  the  pointer  to  job  to  be  swapped. 

501  - 502  Scan  the  MEMQ  for  jobs  that  are  doing  keyboard  I/O  and 

are  in  core  and  not  swapping. 

504  - 505  If  the  size  of  such  a job  exceeds  the  required  size  set 
A.MH1  to  that  UST. 

509  - 510  If  no  swap  candidate  was  f.^und  call  SDP3. 

513  - 515  Call  SWOUT  to  swap  out  job  found. 


Repeat  SDP  for  more  jobs  to  swap  out. 
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7.15  SDP3 
526  - 529 

530  - 535 

539  - 543 

547  - 550 
551  - 552 

555  - 560 

563  - 564 
566  - 567 
568  - 569 


Enter  only  if  last  entry  was  at  least  AS03!  ns.  ago  <r 
five  unsuccessful  attempts  wire  made  previously. 

Reset  counter,  entry  time,  cumber  of  urgent  users  found, 
memory  needed,  largest  urgent  user  wait  tine. 

Find  user  that  needs  memory  and  has  been  waiting  at 
least  TASWT  ms. 

Calculate  job  wait  factor  depending  on  size  of  program. 

See  if  wait  factor  calculated  is  less  than  time 
waited.  If  so  he  Is  eligible  to  be  urgent. 

If  he  was  force  swapped,  reset  the  force  swap  bit  and 
change  his  state  from  "waiting  meoory  after  force  swap" 
to  "waiting  memory",  but  do  not  consider  him  urgent. 

If  he  was  found  urgent,  increment  urgent  user  lounts. 

If  USWiTCH  is  set  print  urgent  user  message. 

If  he  is  the  longest  waiting  urgent  user,  set  ITALLT 
to  his  UST. 

Record  number  of  urgent  users  detected  in  this  pass 
through  SDP3.  Call  SDP4. 


If  no  urgent  user  w.as  found  call  SDP6. 

Call  SDP5  if  (i)  longest  wait  tine  is  less  than  T.ASID 
ns.,  (ii)  it  has  been  less  than  TASCK  ns.  since  the 
last  size  change,  or  (ill)  a size  change  request  is 
already  scheduled. 

Calculate  a new  (larger)  size  for  TSS  swap  area. 
Increment  size  Increase  requests. 
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600 

601 


7.17 

SDP5 

610 

611 

- 613 

61A 

- 615 

616 

618 

7.18 

SDP6 

627 

628 

- 632 

633 

- 635 

636 

637 

- 638 

639 

- 640 

643 

7.19 

SDP7 

652 

- 659 

Set  special  memory  action  flag. 

Call  SDP5  to  set  up  core  fence. 

If  core  fence  is  already  up  call  SDP6. 

If  urgent  user  size  is  greater  chan  TSS  swap  area  size 
call  MBA3  to  increase  size. 

Sec  core  fence  size  (2AURVJT)  needed  to  LSIZE  of  urgent 
user . 

Set  time  fence  was  established. 

Call  SDP6  to  force  swap  jobs. 


If  special  memory  action  waiting  go  directly  to  scan  for 
force  swap  jobs. 

If  an  urgent  user  was  found  ani.  swap  files  are  not  full 
begin  scan  for  force  swaps.  Otherwise  return  to  ALLOCl. 
Scan  CPUQ  for  a job  that  has  been  in  core  more  than  AMTQ 
ms. 

If  Cue  job  is  not  new  and  is  not  already  scheduled  for  a 
force  swap,  set  the  force  swap  bit.. 

If  the  job  is  doing  I/O  return  to  iU.LOC’1. 

Otherwise  call  SDP7  to  force  swap  it  immediately. 

Return  vo  ALLOCl. 


Call  SWOUT  to  swap  job  out.  Increment  force  swap 
counters  for  UST  and  system.  Move  UST  from  CPUQ  to 
MEMQ.  Print  diagnostic  messages  for  QSWITCH  and 
USWITCH. 
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7.20  SPMACT 
670  - 672 
673 
676 

678  - 679 

683 

684  - 688 


690  - 691 

695 

696  - 6<’7 
699 

703  - 706 


Return  to  ALLOCI. 

If  no  size  change  is  scheduled,  clear  flag  and  return. 

If  size  decrease  is  scheduled  go  to  SPM.3. 

If  size  has  been  increased  less  than  TAGMI  ms.  ago, 
ignore  this  request. 

Print  diagnostics  for  increase. 

If  new  size  requested  is  current  size  or  less  than  3K, 
Ignore  it. 

If  there  is  no  hole  at  the  tail  end  of  core  large  enough 
for  the  reduction,  or  the  request  has  been  pending 
longer  than  TATMC  ms.  or  less  than  TATMD  ms.  go  to 
SPM.5  to  see  if  request  should  be  ignored. 

Print  diagnostics  for  decrease. 

Update  memory  map  entry. 

Clear  size  request  and  request  flag. 

Set  time  of  last  change  or  change  attempt. 

Ignore  request  if  time  since  last  request  is  greater 
than  TATMC. 


7.21  MBA 

714 

715 

719  - 726 
729  - 731 


Clear  success  return  flag. 

Increment  count  of  entries. 

Check  memory  map  for  a hole  big  enough  to  satisfy 
request. 

If  search  was  unsuccessful  and  program  will  not  fit  In 
TSS  size,  call  MBA3. 
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734  - 737 


738  - 740 


E. 


I 


E- 


E> 


744  - 759 

760 

761 

7.22  MBA3 
770  - 772 

773  - 775 
776 
111 

778  - 780 
781  - 783 

7.23  MBD 
793  - 797 

800  - 807 

808 


[ 809 

E 


If  allocated  job  was  the  urgent  user,  clear  the  core 
fence. 

If  he  is  not  the  urgent  user,  make  sure  he  does  not  use 
up  the  core  fence  set  up  for  the  urgent  user. 

Build  and  link  new  entry  into  the  memory  map. 

Set  flag  to  Indicate  that  allocation  was  successful. 
Call  MMV  to  verify  memory  map  is  still  good. 

If  urgent  user  has  waited  more  than  TAlilW  ms.  for  core, 
return. 

If  ?.  size  increase  is  already  scheduled,  return. 

Set  new  request  to  size  of  program. 

Set  the  special  memory  action  flag. 

If  urgent  user  needs  more  than  TAffll  plus  the  current 
TSS  swap  area  size,  return. 

Otherwise  set  the  new  size  request  to  TAMII  more  than 
the  current  size  but  not  more  than  TAMMS. 


Scan  memory  map  for  the  job  with  the  same  pointer  as  the 
one  to  be  deallocated. 

Remove  the  entry  from  the  core  map  and  relink  preceding 
and  succeeding  entries. 

If  the  deallocated  program  was  larger  then  2K,  set  the 
MAP  flag. 

Call  MMV  to  verify  the  memory  map. 
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7.24  MMV 


823 

- 832 

Scan  every  entry  in  the  memory  map  and  add  up  each 
program  and  bole  size  in  TOTCOR. 

825 

- 827 

Print  diagnostics  when  MSWITCH  is  set. 

833 

Sample  value  of  CORSIZE  for  statistics. 

837 

- 839 

Compare  TOTCOR  with  the  current  TSS  swap  area  size.  If 
they  are  not  equal  print  an  error  message  and  stop. 

844 

- 848 

Scan  the  MEMQ  for  jobs  waiting  for  core  (i.e.,  not  doing 
I/O,  not  swapping,  not  in  core  and  not  new  subsystem). 

849 

- 853 

Scan  the  CPUQ  for  jobs  eligible  for  the  cpu  (i.e. , not 
doing  I/O,  not  swapping,  not  scheduled  for  a force  swap 
and  in  core). 

7.25 

SWOUT 

861 

Clear  "in  core"  bit. 

862 

Set  "swapping  out"  bit. 

863 

Increment  swap  count. 

864 

- 865 

If  keyboard  I/O  is  in  progress,  set  "roadblocked"  bit, 
and  clear  "scheduled  for  force  swap"  bit. 

866 

Call  SWPLD  to  swap  out. 

7.26 

SWIN 

875 

Set  "swapping  in"  bit. 

876 

Call  SWPLD  to  perform  swap  in. 

877 

Increment  count  of  jobs  in  core. 

7.27 

SWPLD  ^ 

883 

DIR  specifies  direction  of  the  swap  to  be  performed. 

(0  = in,  1 = out.) 
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890  - 891 


. ?8  SSFINI 


Increment  subsystem's  swap  count. 

Change  subsystem  state  to  "swapping". 

Increment  count  of  jobs  swapping. 

Schedule  swap  in  courtesy  call.  File  the  courtesy  call 
in  CCQ. 

Schedule  swap  out  courtesy  call. 

Add  program  size  to  total  core  swapped  out. 

File  the  courtesy  call  in  CCQ. 

Increment  count  of  subsystem  terminations. 


903  - 904  Decrement  count  of  jobs  in  core.  Change  subsystem 
state  to  "out  of  core". 

905  Call  MBD  to  release  core. 


908  - 911  Remove  job  from  whichever  queue  it  was  in  and  print  queue 
diagnostics  if  necessary. 

914  - 920  If  an  output  courtesy  call  is  still  pending  for  this 
subsystem,  cancel  it. 

021  Call  SACT  to  take  subsystem  accounting  and  destroy  UST  entity. 


7.29  BUFDMP 


For  output  operation,  bypass  this  routine  and  call 


KIOSRT. 


931  - 933  For  input,  move  the  UST  from  the  CPUQ  to  the  MEMQ. 

934  Change  subsystem  state  to  "non-useful  core  residency". 

935  Set  "I/O  roadolocked"  bit. 

537  Print  queues  foi  diagnostic  purposes. 


36 


938 

7.30  KIOSRT 
950  - 954 


955 

958 

959 

960  - 965 

966 

967  - 969 

970  - 971 

975 

976  - 981 
982  - 986 


Call  KIOSRT  to  start  I/O  operation. 

If  keyboard  I/O  is  already  in  progress  (FK19  =1),  it 
must  be  an  output  since  the  subsystem  was  executing.  In 
this  case,  cancel  the  output  courtesy  call. 

Set  "I/O  in  progress"  bit. 

If  operation  is  an  output: 

Increment  subsystem's  count  of  outputs. 

If  no  output  is  in  progress  collect  response  time  value 
since  the  last  key  I/O  courtesy  call. 

Set  LTIN  to  the  arrival  time  of  the  courtesy  call. 
Schedule  the  output  courtesy  call  and  file  it  in  the 
CCQ. 

Print  diagnostic  message  if  KSWITCH  is  set. 

If  operation  is  an  input: 

Increment  subsystem's  count  of  inputs. 

If  no  previous  output  is  in  progress,  collect  a response 
time  sample. 

Schedule  input  courtesy  call  and  print  diagnostic 
message  if  KSWITCH  is  set. 


7.31  START 
992 
994 

997 

998  - 999 


Increment  count  of  subsystem  arrivals. 

Call  CORSAMP  to  sample  values  for  memory  map  statistics. 
Create  a new  UST  entity. 

Sample,  assign  and  tally  values  for  program  size  and  epu 


time  allocated. 


li 


■ ~''”s^Ss;^Re<' 


k 


ICO  - 1006 


1007 


1008 

1009 

1010 
1011 

1012  - 1013 

1014 

1015 


7.32  RETSSX 


1026  - 1027 
1028 


Sample  valaes  for  the  number  of  disk  I/O's,  keyboard 
inputs  and  outputs  for  this  subsystem,  and  calculate 
the  mean  interarrival  time  between  each.  If  zero 
operations  are  sampled  the  interarrival  time  is  set  to 
RINF.C  (Slmscript  constant  for  the  largest  possible 
real  number). 

Set  time  until  next  disk  I/O,  and  key  input  and  outputs 
as  half  the  Interarrival  time.  The  I/O  operations  are 
equally  spaced  in  cpu  time  throughout  the  subsystem 
execution  period. 

Set  "new  subsystem"  bit. 

Assign  sequential  index  number. 

Initialize  LTIN,  LTMWT. 

File  the  UST  in  the  memory  queue. 

Print  message  for  diagnostics. 

Change  subsystem  state  to  "awaiting  memory". 

Print  MEMQ  if  QSWITCH  is  set. 


Set  NXTCC  to  the  arrival  time  of  the  next  courtesy  call. 
Set  NEXT  to  the  smallest  of  the  following  times: 

Time  until  the  next  disk  I/O. 

Time  until  the  next  key  input. 

Time  until  the  next  key  output. 

Cpu  time  remaining  for  the  subsystem. 

Time  until  the  next  interrupt. 

Subsystem  quantum  (TCDEL). 

Time  until  next  couttery  call. 
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1029 


Initialize  DISPT  to  the  time  of  dispatch. 


1030  - 1034 
1038  - 1042 


7.33  SA<,T 
1052  - 1062 


1065  - 1067 


1068 

1069  - 1072 

7.34  ATGiG 
1080  - 1086 

1087 


Reduce  each  of  the  above  times  by  the  minimum  value. 
Schedule  the  derail  which  was  to  occur  next.  In  case 
TCDEL,  NXTINT  or  NXTCC  was  the  least  time,  schedule 
an  EXENTR  to  re-ent-.'r  the  allocator  via  an  interrupt. 


Sample  each  of  the  following  values  from  the  UST  entity 
and  assign  them  to  their  respective  global  tallied 
variables : 

Time  spent  in  each  of  the  six  subsystem  states. 
Keyboard  inputs. 

Keyboard  outputs. 

Disk  I/O's. 

Force  swaps. 

Swaps. 

Calculate  response  time  by  dividing  total  response  time 
accumulated  by  the  total  number  of  keyboard  I/O's.  If 
no  key  I/O's  were  done,  response  time  is  total  subsystem 
duration. 

Sample  subsystem  cpu  time  allocated. 

Print  message  if  SSSWITCH  is  set. 


Add  current  time  minus  time  of  previous  call  to  ATCHG 
for  this  subsystem  to  the  accumulated  time  foi  the 
previous  state  (specified  by  LTCW) . 

Set  LTCW  to  new  state  (N) . 


1088 


Update  time  of  last  state  change. 


Move  the  interrupted  UST  to  the  last  position  in  the 
CPUQ, 

Print  CPUQ  for  diagnostic  aid. 

Call  EXEACT  to  take  accounting. 

Re-enter  the  allocator  via  ALLOCI. 

Sample  the  arrival  time  of  the  next  interrupt. 


Increment  count  of  interrupts. 

Add  cpu  time  used  by  subsystem  to  totals  for  subsystem 
and  overall  system. 

If  MAP  was  last  called  more  than  ASD3I  ms.  ago,  set 
MAP  flag. 

If  LINSV  was  last  called  more  than  TLTLM  ms.  ago,  set 
•LINSV  flag. 


Set  input  operation  flag. 

Call  EXEACT  to  take  accounting. 

Increment  global  key  input  count.- 
Call  dUFDMP  to  process  input. 

Reset  time  until  next  input  to  moan  input  arrival  time. 
Return  to  ALLOCI. 


Set  output  operation  flag. 

Call  EXEACT  to  take  accounting. 
Increment  global  key  output  count. 


I- 

f. 


1146 

1149 

1150 

7 39  DRLDIO 

1158 

1159 

1160  - 1161 
1162 

1166  - 1168 

1169 

1170 

7.40  DRLRET 
1178 

1181 

1182  - 1183 

1184 

1185 

7.41  KIOCC 

1191 

1192  - 1193 

1196 

1197 


Call  BUFDMP  to  process  output. 

Reset  time  until  next  output  to  mean  output  arrival  time. 
Return  to  ALLOCI. 

Set  "disk  I/O  in  operation"  bit. 

Call  EXEACT  to  take  accounting. 

Increment  UST's  and  system's  count  of  disk  I/O  operations. 
Reset  time  until  next  disk  I/O  to  mean  disk  I/O 
arrival  time. 

If  the.  DIOQ  is  empty,  schedule  the  courtesy  call  for 
this  UST  and  file  it  in  the  CCQ. 

File  the  UST  at  the  end  of  the  DIOQ. 

Return  to  ALLOCI. 

Call  EXEACT  to  take  iccounting. 

Check  to  see  that  the  subsystem  utilized  all  the  cpu 
time  allocated. 

If  not,  print  an  error  message. 

Call  SSFINI  to  terminate  the  subsystem. 

Return  to  ALLOCI. 

Save  UST  pointer  in  TUST  and  set  UST  to  the  subsystem 
for  which  KIOCC  was  scheduled. 

Print  message  if  KSWITCH  set. 

Set  time  of  courtesy  call  in  LTIN. 

Reset  "data  in  transmission"  bit. 


I 

t 
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TW'j  «~*J"  r'  ’ ‘I* 


i 


1200 

1202 

1203  - 1207 


1208 

1211 

1213 

7.42  DIOCC 
1220 

1223 

1224 

1227  - 1228 

1229 

1230 

1234  - 1237 


If  operation  was  an  input: 

Reset  "roadblocked"  bit. 

If  program  is  not  swapping  out  and  not  in  core,  move 
the  UST  from  the  MEMQ  to  the  CPUQ.  Change  state  to 
"useful  core  residency". 

Print  MEMQ  and  CPL'Q  for  diagnostics. 

If  program  is  not  in  core,  set  MAP  flag,  and  change 
state  to  "awaiting  memory". 

Restore  UST  pointer  and  return. 


Save  UST  pointer  as  in  KIOCC. 

Remove  the  UST  from  the  top  of  the  DIOQ.  He  must  be 
the  one  whose  courtesy  call  is  being  serviced. 

Clear  "disk  I/O  in  progress"  bit. 

Move  the  UST  to  the  top  of  the  CPUQ. 

Print  CPUQ  for  diagnostics. 

Restore  UST  pointer. 

If  there  are  more  UST's  in  the  DIOQ,  schedule  the  first 
one. 


7.43  1/\LLCC 
1244 

1247 

1248 

1249 


Save  the  UST  pointer  as  in  KIOCC.- 
Decrement  count  of  users  In  core. 

Clear  "swapping  out"  bit. 

Set  MAP  work  flag  on. 

If  UST  was  .lot  doing  key  I/O  and  was  force  swapped 
cliange  state  to  "awaiting  memory  after  force  swap". 
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1251  - 1253 


1255  If  UST  was  not  force  swapped  and  not  doing  key  I/O 

change  state  to  "awaiting  memory". 

1258  If  UST  was  doing  key  I/O  change  state  to  "ont  of  core". 

1259  Ca"  MBD  to  deallocate  core. 

1260  Decrement  count  of  jobs  swapping. 

1261  - 1262  Restore  UST  pointer.  Remove  the  courtesy  call  from  the 


7.4A  2ALLCC 


7.45  LIXSV 


CCQ  and  destroy  it. 


1260  Save  UST  pointer  as  in  KIOCC. 

1271  Set  "program  in  core"  bit. 

1272  - 1273  Clear  "swapping  in"  and  "scheduled  for  force  swap"  bits. 

1274  - 1275  Move  the  UST  from  the  MEMQ  to  the  top  of  the  CPUQ. 

1276  Change  state  to  "useful  core  residency". 

1277  Print  MEMQ  and  CPUQ  for  diagnostics. 

1278  Decrement  count  of  users  swapping. 

1279  - 1280  Restore  UST  pointer,  remove  this  2<\LLCC  call  from  the 

CCQ  and  destroy  it. 


Clear  LIN'SV  flag. 

Clear  "no  users"  switch. 


Reset  time  of  last  call  to  LINSV. 


Test  if  at  least  TLNLM  ms.  have  passed  before  last 
entering  the  next  section.  If  not,  byp.iss  the  next 
section  and  go  to  MSRK. 

Update  TLOl.D,  tine  of  entry  to  this  section. 

Test  to  see  if  both  CPUQ  and  MEMQ  are  empty.  If  so. 


set  MSRZ40  indicating  no  users. 


1296 


If  the  current  core  size  Is  not  at  the  minimum  go  to 


MSRKS  to  try  to  reduce  It. 

1297  If  core  Is  at  its  minimum,  go  to  MSR300  to  relinquish. 

1301  Clear  "no  users"  flag. 

1302  If  less  chan  TAMRI  ms.  passed  since  the  last  time 
through  the  next  section,  skip  to  MSR300  to  scan  for 
new  subsystems. 

1306  - 1309  Calculate  percentage  core  being  used  and  average  it  with 
the  previous  value. 

1312  - 1318  Find  the  largest  program  in  the  system. 

1319  If  no  users,  skip  to  MSR250. 

1320  - 1325  Skip  memory  reduction  if  either  of  the  following  is 

true : 

(i)  Time  since  last  here  is  less  than  TA.MRI  ms. 

(ii)  An  urgent  user  was  found  since  the  Last  tine 
through  here. 

(iii)  The  last  size  change  was  less  than  TATMD  as.  ago. 

(iv)  A program  has  been  awaiting  memory  since  the  last 
time  through  here. 

(v)  The  percent  core  utilization  (TAPHU)  is  greater 
than  TAPMP. 

1326  - 1327  If  current  size  minus  TASRI  Is  less  than  the  minimum 
size,  set  change  request  to  minimum.  Otherwise  se.' 
request  to  reduction  by  TASRI. 

1328  If  a change  request  is  already  scheduled,  ignore  this 

one. 
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If  new  size  is  less  than  largest  program  found,  ignore 


1330  If  time  since  last  change  is  less  than  TASC",  ignore 
this  request. 

1331  Set  special  m«.i»ry  action  flag. 

1332  Set  TAHOI.  to  tlie  new  requested  core  size. 

1333  Increment  count  of  reduction  requests. 

1339  If  the  arrival  time  of  the  next  L’ST  is  past,  call 

START  to  create  it. 

1340  - 1341  Sample  time  of  next  L'ST  arrival. 

1342  Loop  back  to  see  if  next  arrival  is  also  past. 

1343  If  either  Allocator  or  .MAP  flags  are  set,  return  to 

liLLOCI. 

1348  Increment  count  of  idles. 

1349  If  .MAP  was  last  called  more  than  /\SD3!  ms.  ago.  >et 

MPUF. 

1350  - 1351  Set  time  of  next  courtesy  call. 

1352  - 1353  Schedule  an  entry  into  the  allocator  at  the  arrival  of 

the  next  1ST,  courtesy  call  or  TAGMI  .ms.,  wnichever  is 

smal lest . 


8.  Error  Messages 


This  section  describes  only  those  error  messages  printed  by  the 
program.  For  Simscript  generated  error  messages  ser  Reterence  5. 

1.  After  reading  the  input  data  the  program  reads  a check  value 
and  compares  it  with  a preset  value  (see  Section  7.2).  If  this  value 
is  not  correct  the  program  terminates  with  the  following  error  message. 

IHUt  ERROR  - INPUT  FORMAT  INCORRECT 

2.  When  the  memory  buffer  allocator  (MBA)  is  called  to  find 
memory  for  a certain  job,  it  checks  to  see  if  the  program  is  already  in 
core.  If  such  a call  is  made  the  error  is  considered  fatal  and  the 
following  message  is  printed. 

Hint  ERROR  - MBA  CALLED  FOR  UST  ALREADY  IN  MEMORY 

3.  The  memory  map  arrays  (see  section  3)  are  all  dimensioned  50. 
If  more  than  fifty  jobs  are  ever  allocated  memory,  the  MBA  process 
prints  the  following  message  and  terminates  the  program.  In  this  case 
the  dimension  figure  in  the  INIT  routine  must  be  increased. 

itittt  ERROR  - NO  MORE  AVAILABLE  BLOCKS  FOR  MEMORY  MAP  ARRAY 

4.  The  memory  map  verification  routine  (MMV)  prints  a fatal 
message  if  the  map  does  not  verify.  This  occurs  if  the  sum  of  ail 
programs  and  holes  in  the  map  does  not  equal  the  total  core  size.  The 
message  printed  is: 

Hint  ERROR  - MEMORY  MAP  iX)ES  NOT  VERIFY 

5.  The  only  non  fatal  error  occurs  when  a program  terminates 
without  using  up  all  the  cpu  time  allocated  to  it.  In  such  a case  the 
return  derail  (DRLRET)  prints  the  following  me«-sage: 

innt  ERROR  - nnnn  ALLOCATED 


CPU  = tttt.t 


USED  = ssss.s 


P: 


APPENDIX  1 
Variable  Description 

The  following  is  an  alphabetically  ordered  list  of  variable  names 
used  in  the  program  and  their  functions.  Wlien  a name  is  followed  by 
(M/S)  it  means  that  its  mean  and  standard  deviation  are  automatically 
collected  by  Simscript  in  the  variables  Mname  and  Sname  respectively. 

For  certain  TSS  system  constants,  their  values  at  the  time  this 
program  was  debugged  are  given  in  parentheses.  Most  variable  and 
parameter  names  arc  the  same  as  those  in  TSS  and  can  be  found  described 
in  Reference  2. 


i\LOCI  - Number  of  entries  to  the  allocator. 

.‘VLL'TM  - Time  at  which  urgent  user  was  last  detected. 

AM/M’  - Number  of  entries  to  MAP. 

AM/\P2  - Number  of  times  tl\e  core  fence  limit  was  exceeded. 
r\MBA  - Number  of  entries  to  MBA. 

/\MBA4  - Number  of  times  a liole  fit  was  detected  by  .MBA. 

AMBA5  - Number  of  successful  allocations  after  hole  fit  detected. 

A.MFTM  - Maximum  force  fence  maintenance  time  (20000  ms.). 

■AMNl  - Pointer  to  i'ST  for  SDP. 

i\.'LN2  - Size  of  memory  requested  from  SDP. 

i'l.MTQ  - Minimum  core  residency  lime  (7000  ms.). 

.\PAP1  - Number  of  allocator  idles. 

.vP/\i’2  - Number  of  times  subsystem  selected  for  processt^r  allocation. 

ASUP  “ Number  of  entries  to  SDP  because  program  awaiting  memory. 

ASDP7  - Number  of  force  .swaps. 
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ASD3C 
ASD3I  - 
rtSD3T  - 
AVAIL  - 

CCQ  - 
CHANGE  - 
CHECK  - 

CHKCPU  - 

C0RSI2E  - 
CPUDUR  - 
CPUQ  - 
DBEGIN  - 
DDUR  - 
DEVS  - 
DIOIAT  - 
DIOMEAN  - 

Dioq  - 
DIR  - 

DISKIO  - 
DISPT  - 
DKS  - 
DKS  - 


Counter  to  override  timer  for  entry  to  SDP3. 

Minimum  time  between  entries  to  SDP3  (1000  ms.)* 

Time  of  last  entry  to  SDP3. 

Pointer  to  the  list  of  available  blocks  in  tlie  memory  map 
arrays. 

Queue  of  pending  courtesy  calls.  Ordered  FIFO. 

Temporary  variable  to  hold  core  size  change  in  LINSV. 
Check  value  (9999)  to  verify  that  data  v;as  read  correctly 
in  INIT. 

Allocated  cpu  time  attribute  of  UST.  Used  to  check  used 
against  alloca  .=d  cpu  time. 

Global  sample  of  TACOR  in  MM\'  (M/S). 

Input  distribution  of  cpu  time  per  subsystem. 

Processor  queue. 

Time  at  which  diagnostic  printing  is  to  start. 

Duration  of  diagnostic  period. 

Diagnostic  switcl>  for  event  trace. 

UST  attribute,  disk  I/O  interarrival  time. 

Input  mean  of  disk  I/O  service  time  for  exponential 
distribution. 

Disk  I/O  queue.  Ordered  FIFO. 

Argument  for  SWl-D  '■outine  to  specify  direction  of  swap. 

1 = out,  0 = in. 

Global  count  of  disk  I/O's. 

Time  at  which  last  subsystem  was  dispatched. 

Diagnostic  switch  for  key  I/O  trace. 

Diagnostic  switch  for  memory  activi cy  trace. 
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E 


DQS  - Diagnostic  switch  for  queue  activity  trace. 

DRS  - Diagnostic  switch  for  routine  trace. 

DSCS  - Diagnostic  switch  for  core  size  and  precentage  core 

utilization  trace. 

DSS  - Diagnostic  switch  for  subsystem  start  and  termination  trace. 

DUS  - Diagnostic  switch  for  urgent  iiser  and  force  swap  trace. 

DUST  - Temporary  location  for  UST  in  DIOCC. 

ELIGCPU  - Number  of  UST's  eligible  for  the  processor  (M/S). 

ES  - Temporary  index. 

EVDIAG  - Short  for  "FOR  ES=1  TO  EVSWITCH". 

EVSWITCH  - See  DEVS. 

EXT  - Variable  for  accumulating  time  used  to  execute  TSS  code. 

The  values  for  EXT  were  calculated  from  the  actual  TSS 
listings  with  the  assumption  that  the  average  instruction 
execution  takes  approximately  2.2  microseconds. 


FK19  - 

UST 

attribute 

bit, 

"data  in  transmission." 

FL18  - 

UST 

attribute 

bit , 

"disk  I/O  in  progress." 

FL19  - 

UST 

attribute 

bit , 

"keyboard  I/O  in  progress 

FL21  - 

UST 

attribute 

bit. 

"swap  out  in  progress." 

FL22  - 

UST 

attribute 

bit , 

"program  in  core." 

FL23  - 

UST 

attribute 

bit. 

"swap  in  in  progress." 

FL24  - 

UST 

attribute 

bit. 

"new  subsystem." 

FL34  - 

UST 

attribute 

bit. 

"force  swap  scheduled." 

HEAD  - 

Pointer  to  the  heac 

entry  in  the  memory  map. 

HOLSIZE  - 

Samples  of  hole  sizes  in  memory  map  (M/S). 

I - Temporary  index. 

IDPTR  - Memory  map  array  to  hold  UST  pointer. 
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INCORE  - 


INDDRL  - 
INITCORE  - 
INITIME  - 

INTMEAN  - 

J - 

JOBNO  - 
KEYIN  - 
KEYOUT  - 
KIIAT  - 
KILL  - 
KIODUR  - 
KOIAT  - 
KOSWAP  - 

KSWITCH  - 
KUST  - 
LNSF  - 
LSFLG  - 
LSIZE  - 
LSPTS  - 
LSTIO  - 
LTCW  - 
LTC21  - 
LTC22  - 


Number  of  UST's  in  core  (M/S). 

Flag  set  by  keyboard  I/O  derails.  1 = input,  0 = output. 
Input  data  value  of  initial  TSS  swap  area  size. 

Input  data  value  of  time  at  which  statistic  counters  are  to 
be  reinitialized  via  event  REINIT. 

Input  data  value  of  mean  interrupt  interarrival  time  for 
exponential  distribution. 

Temporary  index. 

UST  attribute,  subsystem  index  number. 

Global  count  of  keyboard  inputs. 

Global  count  of  keyboard  outputs. 

UST  attribute,  keyboard  input  interarrival  time. 

UST  attribute,  remaining  cpu  time  until  termination. 

Input  data  distribution,  keyboard  input  duration. 

UST  attribute,  keyboard  output  interarrival  time. 

Global  count,  of  swaps  due  to  Keyboard  output  activity 
after  subsystem  termination. 

See  OKS. 

Temporary  location  for  UST  in  KIOCC. 

Maximum  number  of  swap  files  (A). 

Line  service  flag. 

UST  attribute,  program  size. 

UST  attribute,  subsystem  processor  time  used. 

UST  attribute,  disk  I/O  count. 

UST  attribute,  current  time  state. 

UST  attribute,  keyboard  input  count. 

UST  attribute,  keyboard  output  r.nint. 


• I 


LTC31  - 
LTC32  - 
LTIN  - 
LTMRS  - 
LTMWT  - 
LTMO  - 
LTMOSS  - 
LTMl  - 
LTMISS  - 
LTM2  - 
LTM2SS  - 
LTM3  - 
LTM3SS  - 
LTM4  - 
LTMASS  - 
LTM5  - 
LTM5SS  - 
M.\PTM  - 
MEMALOCOK  - 


ME.MQ  - 
MNDELAY  - 

MPACT  - 
MPWF  - 
MS.  - 
MSR240  - 


UST  attribute,  force  swap  count. 

UST  attribute,  swap  count. 

UST  attribute,  response  timer. 

UST  attribute,  accumulated  response  time. 

UST  attribute,  working  timer. 

UST  attribute,  non  useful  core  residency  time. 

Global  sample  of  LTMO  (M/S). 

UST  attribute,  swap  time. 

Global  sample  of  LTMl  (M/S). 

UST  attribute,  useful  core  time. 

Global  sample  of  LTM2  (M/S). 

UST  attribute  out  of  core  time. 

Global  sample  ot  LTM3  (M/S). 

UST  attribute,  waiting  for  core  time. 

Global  sample  of  LTM4(M/S). 

UST  attribute,  waiting  for  memory  after  force  swap  time. 
Global  sample  of  LTM5  (M/S). 

Time  of  last  entry  to  Mi\P. 

Return  value  from  memory  buffer  allocator  (MBA). 

0 = unsuccessful,  1 = successful. 

Memory  queue,  ordered  by  increasing  LSIZE. 

Input  data  value,  minimum  of  uniform  distribution  for 
interrupt  delay. 

Special  memory  action  flag. 

MAP  work  flag. 

Short  for  "UNITS". 

"No  users"  flag  in  LINSV. 
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MSWITCH  - 
MXDELAY  - 


N - 

NEXT  - 
NODIO  - 
NOKIN  - 
NOKOUT  - 
NXTCC  - 
NXTDIO  - 
NXTINT  - 
NXTKIN  - 
NXTKOUT  - 
NXTUST  - 
OUTCC  - 
OUTMEAN  - 
PERUSED  - 
PRED  - 
PROGS IZE  - 
QSWITCH  - 
RDIAG  - 
RESPT  - 

RS  - 

RSWITCH  - 
R6  - 

SCSWITQi  - 


See  DMS. 

Input  data  value,  maxinum  of  unifoim  distribution  for 
interrupt  delay. 

Argument  for  ATCHG,  new  time  state  of  UST. 

Cpu  time  interval  allocated  to  subsystem  in  RETSSX. 

UST  attribute,  number  of  disk  I/O's. 

UST  attribute,  number  of  keybaord  inputs. 

UST  attribute,  number  of  keyboard  outputs. 

Time  until  next  courtesy  call. 

UST  attribute,  cpu  time  until  next  disk  I/O. 

Cpu  time  until  next  interrupt. 

UST  attribute,  cpu  time  until  next  keyboard  input. 

UST  attribute,  cpu  time  until  next  keyboard  output. 

Real  time  until  next  subsystem  arrival. 

UST  attribute,  pointer  to  pending  output  courtesy  call. 
Input  data  value,  mean  output  duration. 

Percent  core  utilization  (M/S). 

Memory  map  array  of  backward  pointers. 

Samples  of  program  sizes  in  memory  map  (M/S). 

See  DQS. 

Short  for  "FOR  RS=1  TO  RSWITCH  PRINT  1 LINE  THUS". 

Global  sample  of  response  time  calculated  for  individual 
key  I/O  operations  (M/S). 

Temporary  index. 

Sr  "«RS . 

Temporary  UST  pointer  in  MAP. 

See  DSCS. 
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SFUSE  - 
SHOLE  - 
SHOW  - 
SIZEDIST  - 
SIZEINCR  - 
SIZERED  - 
SJOB  - 
SPMFR  - 
SSCPU  - 
SSDIO  - 
SSFS’WAP  - 
SSKIN  - 
SSKOUT  - 
SSRESP  - 

SSSWAPO  - 
SSSWITCH  - 
STOPTIME  - 

sue  - 

SUSTl  - 
SUST2  - 
SW/\PDUR  - 
T - 

TMUG  - 
TACOR  - 
TAGMI  - 
TAGPT  - 


Number  of  UST's  swapping  (M/S). 

Memory  map  array  to  bold  hole  values. 

Short  for  "PRINT  1 LINE  WITH  TLME.V". 

Input  data  distribution  of  program  sizes. 

Number  of  TSS  swap  area  size  increases. 

Number  of  TSS  swap  area  size  reductions. 

Memory  map  array  to  hold  program  sizes. 

Time  of  last  size  increase  request. 

Global  sample  of  .LSPTS  (M/S). 

Glcbal  sample  of  LSTIO  (M/S). 

Global  sample  of  LTC31  (M/S). 

Global  sample  of  LTC21  (M/S). 

Global  sample  of  LTC22  (M/S). 

Global  sample  of  response  time  calculated  by  dividing  the 
total  response  time  by  total  keyboard  I/O's  (M/S). 

Global  sample  cf  LTC32  (M/S). 

See  DSS. 

Input  data  value,  simulation  duration. 

Memory  map  array  for  forward  pointers. 

Temporary  variable  to  hold  UST  pointer  in  lALLCC. 

Same  as  SUSTl  for  2ALLCC. 

Input  data  distribution,  swap  channel  service  time. 

Temporary  variable. 

Number  of  urgent  users  detected. 

TSS  swap  area  size. 

Minimum  time  between  size  increases  (14000  ms.). 

Cumulative  epu  time  used  by  TSS  since  last  relinquish  to  GCOS. 


TAGTC  - 
TAGTU  - 
TAHOL  - 
TAIL  - 
TALCT  - 
TALPP  - 

TALPS  ~ 
TALUT  - 
TAMAW  - 

TAMII  - 
TAMIS  - 
TAMMS  - 
TAMRI  - 
TAPMR  - 


TAPMU  - 
TASCF  - 


TASID  - 
TASIO  - 
TASMS  - 
TASRI  - 
TASRT  - 
TASWF  - 


Number  of  interrupts. 

Sum  of  subsystem  cpu  tine. 

New  requested  TSS  swap  area  size. 

Pointer  to  last  entry  in  memory  map. 

Time  of  last  size  change  attempt. 

Large  program  penalty  multiplier  for  wait  factor  calculation 
in  SDP3  (4). 

Largest  program  detected  in  LINSV  size  reduction  logic. 

Longest  urgent  user  wait  time. 

Maximum  wait  time  for  core  before  rejection  of  program 
(150000  ms.). 

Minimum  memory  size  increment  (7K). 

Maximum  size  of  programs  considered  under  high  priority  (36K). 
Maximum  TSS  swap  area  size  (58K). 

Minimum  time  between  size  reduction  attempts  (300000  ms.). 
Minimum  value  of  TAPMU  required  to  prevent  size  reduction 
(75'4). 

Moving  average  percent  core  utilization. 

Minimum  time  between  size  increase  requests  due  to  urgent 
users  (30000  ms.). 

Damper  for  urgent  user  size  increases  (1000  ms.). 

Count  of  swap  outs  due  to  key  1/0. 

Minimum  TSS  swap  area  size  (20F). 

Memory  size  reduction  amount  (5F). 

Time  of  last  entry  to  size  reduction  logic. 

Divisor  to  convert  size  into  time  units  for  wait  factor 
calculations  in  SDP3  (.008). 
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TASWT  - 

TATMC  - 
TATMD  - 

TATMN  - 
TAURG  - 
TAUSE  - 
TCDEL  - 
TEMP  - 
TKILL  - 
TLFLG  - 
TLLST  - 
TLNAA  - 
TLNLM  - 
UOLD  - 
TLTLM  - 
TOTCOR  - 
TSIRC  - 

TSRRC  - 
TSTRT  - 
TSWAP  - 
TSWPK  - 
TUST  - 
URCT  - 
I'SEDSIZE  - 


Mlniroum  wait  time  before  swap  decision  logic  is  invoked 
(3000  ms. ) . 

Maximum  time  allowed  for  size  change  to  occur  (60000  ms.). 
Delay  before  scheduled  size  reduction  request  is  completed 
(30000  ms.). 

Total  program  size  belonging  to  urgent  users. 

Current  number  of  urgent  users  (M/S). 

Temporary  variable  to  add  up  size  being  used. 

Subsystem  cpu  time  slice  (25  ms.). 

Temporary  variable. 

Number  of  subsystem  terminations. 

Allocator  work  flag. 

Time  of  last  entry  to  LINSV. 

Count  of  TSS  idles. 

Interval  between  line  service  functions  (3000  ms.). 

Time  of  last  entry  to  idle  status  check  in  LINSV. 

Minimum  time  between  scan  for  new  UST's  in  LINSV  (500  ms.). 
Temporary  variable  to  accumulate  TSS  core  size  in  MM\,'. 
Number  of  times  size  increase  was  requested  because  of 
waiting  program. 

Number  of  size  reduction  requests. 

Number  of  subsystem  starts. 

Number  of  program  swaps. 

Total  core  swapped. 

Temporary  UST  pointer  storage. 

Urgent  user  wait  time. 

Amount  of  TACOR  being  used  by  programs  (M/S). 
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I'ST  - 


USTIAT  - 
USWITCH  - 
VCPUDUR  - 
VDIOIAT  - 
VKIIAT  - 
VKOIAT  - 
VSIZE  - 
VUSTIAT  - 
WAITCOR  - 
WAKET  - 
WTFAC  - 
UURWT  - 
ITALLT  - 
2ACRWT  - 


Global  pointer  to  L'ST  cur'-ently  being  served  by  the 
allocator. 

Input  data  distribution,  UST  interarrival  times. 

See  DUS. 

Sampled  values  of  CPUDUR  (M/S). 

Sampled  values  of  DIOIAT  (M/S). 

Sampled  values  of  KIIAT  (M/S). 

Sampled  values  of  KOIAT  (M/S). 

Sampled  values  of  SIZEDIST  (M/S). 

Sampled  values  ot  USTIAT  (.M/S). 

Current  number  of  users  waiting  for  core  (.M/S). 

Time  to  reenter  TSS  after  relinquish  to  GCOS. 

Wait  factor  calculated  for  subsystem. 

UST  pointer  to  urgent  user  for  whom  core  fence  is  established. 
Pointer  to  UST  that  has  been  urgent  the  longest. 

Program  sice  of  UST  for  which  core  fence  is  established. 
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Appendix  2 


Flowcharts 


Routine 

Page 

INIT 

1 

MAIN 

2 

PDIAG 

2 

RE IN IT 

3 

CORSAMP 

3 

MQPRINT 

U 

CQPRINT 

A 

STEF-M 

5 

OUTPUT 

5 

SNAP.R 

6 

ALLOC 1 

7-8 

M.VP 

9-12 

SDP 

13-U 

SDP3 

14-17 

SDPA 

18-19 

SDP5 

20 

SDP6 

21-22 

SDP7 

22 

SPM\CT 

23-26 

MLA 

26-28 

MBA3 

29 

MBD 

30-31 

MMV 

31-32 

SWOl’T 

33 

SWIN 

33 

SWI’LD 

34 

SSFINI 

35-36 

BLTDMl' 

36 

KIOSRT 

37-38 
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Routine 

Page 

STAR!' 

39-40 

RKTSSX 

40 

SACT 

-.! 

ATCHC; 

41 

EXENTR 

^ < 

KXEACT 

.3 

KONDRL 

-J 

KOTDRL 

44 

URI.DIO 

URL RET 

•o 

KIOCC 

46--  7 

DIOCC 

-7 

' ALLCC 

•*8 

2ALLCC 

49 

UNSV 

5n-S: 

S9 


mi"’- 


An 


Paqe  1 


MAIN 


3 


Call  INIT  and  then 
release  the  routine 


I 


Start  the  simulation  clock 
and  proceed  to  the  first  event 


^ STOP ^ 


( ) 


Pmoc  2 


Page  3 


For  each  U’ST  in  the  MEMQ  print  the 
UST  index,  flag  bits,  state  and  size 


c 


RETURN 


) 


f CQPRINT 


For  each  UST  in  the  CPUQ  print  the 
UST  index,  flag  bits,  state  and  size 


Pane  4 


Paqe  5 


Clear  "new  i.ubs'-stem"  flag 


Page  19 


I 


I 

I 


l 


Paqc  22 


SPMACT 


Page  23 


Patjf'  24 


( ^ 

A 

1 

Has  u 

1 

waited  : 

f 

I 

than  T, 

ms 

RETURN 


Set  new  request  of  core  size  to 
size  of  waiting  program 


Use  TAMMS  as 
new  oize  request 


RETURN 


iii 


Page  31 


3SFINT 


Increment  count  of  subsyf?tem  terminations 


Decrement  number  of  UST's  in  core 


Call  ATCHG  to  change  state  to 
"out  of  core" 


Call  MBD  to  deallocate  memory 


Kemove  the  UST 

from  either  the  CPUQ  or  MEMQ 

output  in 
progress 


Destroy  the  output 
courtesy  call 


Increment  counts  of 
swaps  for  system  and 
UST 


Add  IK  to  total  core 
swapped  and  add  a 
sample  of  swap 
duration  to  UST's 
swan  timer. 


-I  t ».r  i t ywsT'? 


File  the  UST  in  the  HEMQ 


Call  ATCHG  to  set  initial  state 
to  "awaiting  memory" 


RET3SX 




Find  cpu  time  until 

first  interrupting  event 

Set  time  of  dispatch  to  subsystem 


Subtract  cpu  time  quantum  found  from 
interarrival  time  of  each  event 


Schedule  the  interrupting  event  after 
the  cpu  quantum  found.  in  the 
case  of  an  external  interrupt  add 
a uniformly  distributed  delay 


RETURN 


MSRK 


Clear  "no  users"  flag 


MSRK^ 


^/^Have  TAMRI 
ms.  passed  since 
last  time  through 
here 


Calculate  current  percent  core 
utilization  and  average  it  with 
the  previous  value 


Find  the  largest  program 
size  in  the  system 


' Are  ^ 
there  any 
users 


^ Have  TAMRI 
ms.  passed  since 
last  time  through 
here 
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OSAr  SELeASE  9', 


SlX’JI.A-riCK  HODSL  roR  fsTTH 

?R£Lease  e; 


6 

7 

6 

7 

PREAMBLE 

NOF.XaLLY  XOl):'  IS  INT 

6 

8 

define 

KVDCnC.  TO 

<3 

9 

.de^in  • 

i-;.S.  TO  .'•r'K  0 

1C 

10 

deFi::>: 

Shov  i6  “.i.a:. 

11 

1 1 

.ee’'1'’e 

h TO  "f^N* 

12 

12 

define 

II. I'i  AS  A RrL 

" l'KFIK:TIQ’i  Ov  SVoTE'I  CUEu^S  AND  RAHDOII  VARIABLES 

« * 

''PERXRvfN'y’rNri^Fs 

THE  SYST;;r.  O^NS  ^ fPOCi  i Hs.‘0,  A CC?  AKP  A DI°Q 

tee  SV?V..':  H7S  A f'TlAT  RaVd^>K  -’^XKeAF  VaRjABLE 

THE  sye M h;s  a !■•>•  Ei''„AA.V''o;;_srEr_VARiAsLE  

THE  SYS-'rii  K;.S  a NCKCOt'FaNoOX  STe?  VA"IAb£e 

IKe_syeti:';_has_  a ncdzo  kanoo;.  sup  variasLe 

TKr  ‘iSTvr.  k.S  ^ S’  t‘=DP?  R.K:0-'‘-  V.PI.bIb 

_TKt:  SY3V;.;E  .HAS  A PA'-’d^”  LINeAP  

the  HAS  A KTO-l!"  KA'-'pC.*:  LIKeAR  VaKiAJJLe 

‘fKv  .sysr.^,  y.i.s  a s’z i ii_ r> a :’.d s 7._ e t i; r._v a p j_a ai£ 

Pf-r':NE  '.’SllAT  AS  A RrAl,  STS£A“  1 VAPlASlE 

‘'OKIE  AS  At:  I'.'TrC.rH.  STPsAK  2 VARIABLE 

OiElNE  •'■'CSOl'i  AS  AE  INT-SL?..  S7!.iAK  3 VARIABLE 

r :”T:  E J-'TY**-*?  .•■'N_r.N7Er.~n/  .'7r5AE  >•  VAkiAB’,;/ 

L■2rJ^^^' S-:APr~l'R  A3~A.‘'.'i'AL.  SI'EA.*.  i VARIABLE 

_2 E ri:'.-'  as  a re  a l^5 r r i A ''_6_v a R l A b L t 

d7f::;e  HLor.v'  as  a RsVij  stsiA':  7 var’iabLe 
_?  X ?J[  LE  .1.1  j;  p 1. 1 S_  A N_  1 7 T E 3 E A . S TR  E AS.  .?  V A R I A B US 

. D 1 1' I N I T 1 0 H_lF_U ST  eh T I n 

te::fora.ht  fktitifs 

“ EvEbt  ::sr  has  a triK#  a LsizP.  a isTiO#  a iSpTS,  a lTMVT»  A LiCk, 

A LT.“  . A LT"1/  A LT-.2.  A LT*;3»  A LTKh,  A LTm5,  A LTtlRS, 

; LTC21.  LTC22.'a  LTC31,  A L7C32,  A FlIS,  A SEl9*  AK  OOTCC," 

A FL21._A  FL?2.  a FL23.  a FL2i,  A FL3u,  a FKi9,.  

A S-XTD70.“a  ••XTHlr,  A •’XTaOUT,  A' KILL,  A'CHKCPJi 

3cr-xo,  A kiiai.  ko:at.  a DIoIrT 
aki:  rAV  CElo  ;g  to'tke  CFti.-'TKr'l^EXQ  aNd  Th'ETDTo^ 

DFFIXE  LTXt.,  LSPTS.  LT'IVT.  LX.-.C,  LTX1.  LT.X2,  LT.X3,  LTB4, 

L7;S.  LT.'BS.  ‘.'XTSIO.  KXIKI”.  .VXTKOL'T,  KiLL,  NXTUST.  HXTcC, 

F.x:,  ci:Hc?L’.  KiiAT,  K0IA7,  oioiAT  As  r::al  variables 
PEFI::?;  LSIZE,  LTcW.  LTc21.  LTc22»  LXc3',  L'^c32*  PLiS,  FL19,  TL21, 
FL22,  FT.23,  f:.2A.  Ft’:*.  Ff.19,  OUTcc»  JO«KO,  LSTiO  AS  VARIABLES 
define  H2XO  AS  A StI  PA.VKiC  ‘bY'I.CK  TSIEe 


‘7956T  0'l  08-28-75  17.504  CxCI  SIMSCRIPt  11.5  ^OH  His  eOO/eOO'O' 

5 2 52  DEriKIXloiToFEVmS 


osxr  RriEAS*  9T 


EVEXT  NOTICES  

_lKcU;0E  AliOcI.  MAP.  ScP.  SdP3,  ScP4#  SjjPS,  S0P6,  S0P7,  KO»dRI, 

■ KOToReT  cRLDIO.'dRLREI/  IINSV,  eXeRTB;  ReISSX,  STeBM,  ReiNiT7 
AKd  PdiAo 

EVERX  Kidcc  ha's  a KU3T,  BElOKGS  tO  THE  CCQ» 

HAS  A S'.fjpQ  I*'"  V-OfiT)  7t  ANf)  HAS  A P.cc^  ll*  VORd  8 

eVeRX  Uu,CC  has  a S'JSTI,  PrLOKoST'O  IrT£~tCQ,  — 

_KAS  A S'.ccQ  ’^O^D  7.  ANn"»'^S  A P.cc^  IN  WORd  8 
eVi-RX  2AllCC  has  a S'JST2.  PeLOXGS  to  THg  cCq, 

HAS  A S.f>fQ  li^  '•'ORo  7»  AKo  nAS  A P.cc^  IN  VTORq  8 

eVeRX  oiocc  iiAs  A pusT,  Belongs  to  the  ccq,‘ 

HAS  A S.f:cO  iN  «Of.Q  7,  AKn  HAS  A P.cc^  iN  VORq  8 

EEPiNe  cca  as  a Sgl  RAKkep  lx  LOV  Ti:'-E7n!rTHOU'T' i.N  aNd  M ATTftiBUTjS  ■ 

DEPiKlTlON  Or  .'1EXTrTT'a'P~ARRaIS““aND  diagnostic  switches 

• 4 

“define  SJOB.  SHOLE.  SUC.  PREtrT^D P T Rik S l-DIJJE N S lO K AI 
ARSAXS 

define  Head.  'fAlL.  a^'a’I*  EVSWIIcH.  CS«ITcH,  -KSWIT^H,  Sc'SWIT^ 

RSHlTCH._i;S.  R£.  ISTKI.  ?KILL,  TLKAA,  o^VS,  dRS,  D«S» 

DJCS.  i.  J.  i'SViTcH.  ASAUcH*  dHS,  0KS»  SSSWiTj-H.  oSS  AS  VARlAglES 

« * 

DEFIKITIOM  OF  FLAGS.  VARIABLES  Xkd  COUNTERS 


DEFINE  LSFLGT 
«PACT.  U 
ASD’c,  T? 

i::coi<Ei  } 

DlFlNi'TLUTL'c. 

ta7:v-'.  It 
DEFINE  ::aft.-‘, 

T._S?MF.. 

TAGfu, 

WAjiET.  OU 

'define  anvt:'..' 

ta':av,  n 
DEFINE  L»,SF. 
ITALuT.IS 


r.Pr.’F,  ALCCI,  TLFLG#  APApi,  AHAP2,  IXaT; 

UPtfT.  2AUPVT.  A:;AP2»  AF.n1*  A«S2,  ASdP,  sfuse, 

U‘?-  TATlir/'l  AAUG,  TAHOl.  XArOR,  XSlRc*  ASDP7,  T$Wp!C^ 

lICCP".  VAlTcOS  AS  VARIA6-ES 

COK.  , AN'.'A;'AX3A«“,  ANEA5*  “I’NDDSI,'  IAUSE,“  TEKP, 

Lvs.  Tsr.Rc.  tasio*  kosvap*  tagtc*  FErUssD  AS  Variables 

ALUT".,  ASC3T.  XXr*JT7“’-’7F Ac*  'JSGT*  tAIcl* 

"'ESPT;  TLIST.  XLCLd*  TAS?-!,  TaSVX,  diSPI,  TACPT, 

TLN,  NXTIKt',  dICKFAN*  INTNeAN*  STOPTIxe,  next, 

1'2aN.__PeDgIK.__DDUR,  KKDEL^X,  kXDELAX,  INIXIKE  as  REaL  variables 
TASVr.  lASiD.  AF.TI.'  TAGF.I,  TAt:ic*  TAXF.D*  ■ 

;.Lv,.  TA"RI*  IAScF,  A5D3I,  TCDEL  AS  REAL  VARIABLES 
X f- ■•i I S . X AL f r . I?wlll*  TAN.'lS . TAs.’IS*  lAPTiiTj  TA^Rl* 

ITCORE  AS  VARIABLES 


" DEFINITION  Or  VARIABLES  FOR  COLLECTING  STATISTICS 

0 * ' - - - - ---  — - 

DFriKE  KEXCUT,  KEXIS,  DI3KIO.  TSWAP,  SiZEIScH*  SIZERED. 

PROGilZv,  HoLSiZE,  CORSIZS*  USeocIEe  JTS~V ARIABLeS 

define  VMIAt,  VKOIAX,  VUSTIAT.  VDIOIAT,  VSIZE*  VcFUDUE  as  real 

"YAs'IaeJ-ES  tt  ■ 

DEFINE  tx.s^ss'*  LxniSS,  1.XK2SS,  LTH3S5*  LTK4sS*  LTNSSS,  SSRESP# 
SSCFU  AS  real  variables  " 

define  SSKIN*  SSKOL'T.  SSOIO,  SSFSWAP,  SSSWAPO  AS  variables 
"tXLLV  tiPlOGSIZr  AS  THE  N.EAN  AND  spROGSTTE  As  Tme'~5Td  OF  PFOGSIZI 
TaLLX  .HHOLSIZE  as  ThEHEaK  and  SHOLSXZE  as  the  STD  OF  HOLSIZE 


r-"  ><l!ATjw>.»A4ia:aRa 


79501  0l  08-28-75  17. SO**  CACI  SISSCSIPT  11,5  PoR  His  600/6000 

■TALrY~^:C0RTllE~r3“TTr>TAK~pD 'SCOESlZ-  AS  THE  STD  OT  COSSlzE 

»p.Ttv  . f*  M*fT«  *J  . If  »l*r\  C!fC«*f'CT7t*  »c  Tilt*  CTrn  nV 


i;SAP  REIEAS*'9,; 


lo^ 

105 


104 

105 


i?6 

V)^ 

TaUY 

.'ir.RU.sfD  A^  The 

'07 

1C7 

TASLY 

.'.VKIIAT  As  the 

108 

108 

TALLY 

H.VKOIAT  As  the 

109 

1C9 

TALLY 

TVUoTlAT  AS  THE 

lie 

1 10 

TALLY 

.:voibxAT  AS  The 

in 

111 

TALLY 

•'.Viizr  AS  THr  M 

1l2 

112 

TALLY 

■'VCFUDua  AS  "HE 

1l3 

113 

tally 

ILT'.OSS  AS  T.Hr 

liu 

114 

Tally 

■;ltmss  as  t"e 

1 15 

115  , 

Tally 

':lt;-:?ss_>s  the 

1l6 

1 16 

TALLY 

..LV.''3.S.'  As  the 

W 

117 

Tally 

. L'i;'.4sr  iS  the 

..Zji:  aKd  si t r. 4 s £_a s_t h s _s t 3_o r_L t :i 4 s s_ 

Tj^lLY  ;.EVX5JS  f.s  the  r.EAH  »«i'  SL'tSSSS  AS  THe'  ST‘o  OF  LTMSSS 
TaELY  ^SSF.ESF  as  Tt'E  .IEaH  SSSHESP  AS  THe  STd  OF  SSRESP 

”tae1‘y~''escf"\s  rnr  ieak’a"3  ssscpo  *s  tke  std  of  sscpu 

_TxEEi  H.F.rSPT  _x.S  IH*;  'iEiE  a'‘0  S’^ifFT  f S THE  STD  OF  RESPT 

TaElT'-ISSFIv”  AS"tHr  IEaN  a!-D  SSSKlf:  AS  THE  STD  OF  SSKI» 

- - - - - ••  SSSKOQT  AS  the  STp  Qf  SSKOUT 

SSSDIO  aS  ti;e  std  of  ssdio 


T>LEY  ••SSEC’.1~  tS  THr  tN'l/ 

Ta’-EY  iSFDio  a5  the  :iean  a"0  s 
_?ji:-Er..:;5srs>.iP„A3_rHS  _heaK  a^'O 


sssrs'^Ap  aS  the  std  or  ssfsh;^p_ 
Ar-’u  ssssvApo  as  the  sIq  or  ssswapo 

44  »*•_  »e  Ti»_  C^_  4*  —BitA 


TAI.LV  ‘‘SSiVtAfO  a:>  Tht 
Ac':'’';vl  AT 
ac 

' n”s  the  f.eaF7aF~ss:UsFTs~thT sfo^or’srusE 

— --  "HE  std  or  lMc>- 

STd  or  TAURG 
TO  or  WAircps_ 
td  or'Etiocpu 


13C 

13C 

AccL':;'.'LArK 

131 

131 

ACC'-'-VLAlE 

137 

132 

accv:i';la:.e 

1 33 

133 

ACO'J'U'LATi; 

134 

134 

ACEUMVLAVe 

13i_ 

_115_ 



n *,#4*  0*-p  car  D * 

C/- LATE  AS  fHE";:EAH  AS  Th£  STj;  OF  N.cPWQ 

cc’-'r'-S;^ri  r:ico  a^  the  he>k  a^o  srio;  j^s  Tkc  sto  of  n.dioq 

rcvri’i;.'.?:  rr^'o  at  t.»e  .-itA.*!  a:*d  s.»:r.ic;  as  The  std  or  n..*ieho 

/-/•ll-l'T.  t rv  > :;p''<:r  ac  THc  l<rAr  "ivn  SSFUSV  AS  THE  STi  OP  SFUSe 


- - 


TgSOT  Ol  '03-28-75  17.50U  ' CaCI'  SIMSC'RIPT' Il75  >'OE  His ‘600/6000' 


US*r  BrirtASS  9',' 


136 

137 

TJ?' 

139 

uo 


1 

2 

T 

4 

5 


# • 
f * 


ROUtIKE  TC  iSITlAtIZB  5IXUlATlO» 


BCUTlSE  IKiT 
SHOW  THUS' 


BjrGiNjilKG  Of  SrMUlATlOH  AS  t**»**,**^ 

142  6 •*  ■ 

143  7 " READ  ISK’T  PASAHETERS.  COSStAKSS  ARD  DSSTRIpUTIOKS 

~T> 


~s~ 


41 

45  9 R1.AD  STOFTtKE.  CEVS,  DB5«  DCS.  QMS,  DSCS«  OUS,  J)KS,  DSS,  DBEGIS, 

46  10  ■ p'l-u'r,' iNiT'x':;'E~’  ‘ ' 

4'' .11 LIST  STCrTihr^  nrVB.  pBS,  pBS,  qScS.  pU3»  pSS,  pbeGiS# 

4?  12 


;? 

li^-  13  PRtK’7"i  LTKf  THUS 


FA'-ijOk  SeadS 

151  14  FOR  ,T«1  SO  1.-)  pO 

152  15  Rl:,^Ji  SErp.v(ji  prikt  1 liKe  With  ■Seeu,V(j)  thus" 


154 

155 

16 
1j 

LOOP 

RE4D 

a:;ptm:. 

rHsr.  t.svt.  if«rs. 

I5f' 

Th 

TAI’.MS,  A.'.ic,  IA3:.I, 

157 

19 

TASKS. 

TAKRi,  TiPMg.  TASRi. 

158 

20 

IN'ITcOR 

}.t  'iL'TMe.S.  MKDEl-Alt* 

159 

21 

LIST 

LNSF.  Tf.5"T,  lAMIa, 

160 

22 

TAVMs.  a:it2.  tag;i» 

161 

23 

'A79T,  T.*.?:;s,  TA.iHI, 

162  24 

_ 163 2^ 

"164  '26 

165  -)7 

167  23 


jSlATT'^lo.'irAi;,  ouftSTS 
read  U.’ITxaT#  KOKI*;,  .IOKoUT.  :iODXO,  S*A?DL'a.  CPUDUB.,  KIoDUR,  SI2EDIS1, 
ChEcK" 

IF  Check  ke  ?999  pbi-.’t  i lire  thus 


CHPUT  yoRfiAT  IHCORRSCT 


R'ESERVE' ARBA'TS  fott  HEhORT'KAf 


STOP 

■Tfi-r 

16?  30 

170  — 31" 

171  32 

172  ‘33  RESErVs"  SJOB.  SHOIE,  SUC.  TBED,~lt)PTH"A’S ‘SCT 

1^3  * ii  * * 

T-TJ  J3  »->  lUITIAtlZE  lE.'IOliT  RAP 


4 • 

"TT 

4 « 


175 

176 
’77 

-lyr 

173 

TrO" 

181 

132 

183 

164 

185 

TgF 


36 

‘37  LET  HE4D=1  let  TAIL«1 

38_  let  SHOLDJ  l)=l!:I7C0RS  Let  5J03(1)»0  Let  TaC0B*INHC0RE 
“39" 

40 


41 

42 
■43' 

14 

45 

46 

TT 


'LEr  ;.V,\IL*2  lEr'sucTiy^:  ISl  pRE!>n5»0 
FOP  1=2  TO  5 DO 

rw‘TucTiT«rn 

LOOP 

let' suC{ 5TT* ' 

LET  TAPyu-l'.  LET  CoRSIZEsIHITCORE 


TAKE  FIRST  SAMPLE  OF  UST  ARRIVAL  ArD  IKTERRUPT 


187  48  LET  KX^USliUSTTAT 


rjiA-.S. 


7950T  9l  6e-28-75‘"“  r7.50U  CaCI"  SlBSCBIPt  11,5  FoK  His"'600/60W 


USAr  RBU^SC  9', 


B 

■ ^88 
189 

so 

S 

1 9 5 

51 

1g1 

52 

g 

19? 

53 

193 

54 

i 

igu 

55 

195 

56 

ige 

57 

let  VUS7IAT  = S’XT'JST 

LET  XXTIi;TKSXPOaEHTiAL.r{IKTi:EAK«9) 


“ SCHEDULE  SNiny  TO  ALLOCATOR  ASO  TeRMIKaTION  EVENTS 

' Sc‘'EI)ULE  RK  ’-LLOcI  MOW  LET  ISEIG-I  

ScREO>l->:  A STeR:1  at  STOPTiME 


ScHEI-ULE  a roI/.G  aT  DREGIN  ' 

Schedule  a reis’it  at  imilime 


SErUf.N  END 


Schedule  eveht  to  print  dia'ghosiicS  ‘ 
Schedule  event  to  Re-initialize  cQUhTeRs 


17.504 


Cfcl-I  SIRSCRIPI  11,5  FOB  HIS  600/6000  " USAF  Bl,LEAsE  9, 


AIN  ROUTINE 


7950T  Oi  '08-28-75  i7.5‘6u"  C^CI  SIKSCRIPT  11,5  To?  His  600/6000 


USAf  RtlEASE  9, 


2 " EVEKT  10  START  A^D  STOP  PSIHTIUS  OF  DIAGNOSTICS 


3 • ' 

H EVENT  VDIAG  SAVING  TilE  EVENT  HOTlCE 

' 5”  lE  TiKv.V  lT  dPeSI-'^O.S 

6 IJ _ 

'7  " set  SWITCHES  aT  START  OE  SIAGKOSTIC  PEHIOD’, 

8 let  FVSWrT-H=D-VS  l£T  PSW-TcHscRS  LeT  O'ViTcHsoOS 

9 LET  :iS«l'C?  = ::E.S  tr,i~ SC5Wi''CH=DSCS  "EeT  ’JshiTCH  = 3US  let  KSWlTC!f*DKS' 

10 IE"  SS£W;TcH  = D-''S  

'll  “re3cI:ED^”-£  T1"E.V+cj;UR  RETUBH  " 

12  • • 

' 13  " ~ nKSET  SWITClilS  AT  EN!)  Cx  DIAG.VOSTXC  ?ERIOd', 

14  vLSv  I--'  vVa"lTCr!« : LrT  SS”irCH=0  Lrt  2S’''lTCH  = 0 L£T  KS«lTCH*0 

15  LvT  '-zr  "s'^itck«:  l'et  sssv:tch«o" 

16  _LsT_  SC5'T1CK=0_:iE3THOT  this  POlJlC__ 

■l7"pvl'ijRj;  END 


■m 


79SCT  Oi  08-28-75 


“ckci' sisscEiPi  II. 5 roa  his  600/6000 


usjir  tiitKst  9\' 


svekt  to  r--i»itixlize  coukters  ?or  Collection  or  statistics 


4 _EVEKT  RF.INIT 
■■5  '(-ALL 'a.  PROG 

_6 c;iLL_R,P3RU 

T ‘'.Voio 

8 r*LL  a . LTH  1 

9 CALL  R.LI-5 

10_ ?.  .SSKI 

11  c*’---  ■•'-.sssv. 

12  f.*i-L_H.sn:s 

13 

14  let  K.«:iro'JT=(. 
v5  LeT  AS;,»7*0 

16  L£T _TS“rT=0 

l7‘"i.pT  AkAPiri. 
18  RrTUaX  tM 


SiZi  c^'LL'R'.MOLSIIi  zkll  R*cORSi’e  qALL  R.USebSi2E  ■ 

?ED  CxLL  R.^<rIAT  CaEE  R.VKqIx^  CA^-l-  S.VUSTIxT 
:AT  cR-L  S'.VSlCE  C^E’-  R.VcI'UOU^  a.ITHOSS 

rs  r»LL  S.LIS2SS  c^LL  R.LT-3SS  qALL  R.lTHUSS 
SS'CALi  R.ES^ES?  C ALL  1=.'. 5SC?U  CalL^RTHeSPT 

’ caJ-I-  R.S3XJUT  i.ssnio  call  R.ssrsw^p  

;.PO  (.RLL  R.N.cC-L  c^-LL  R.XtHELQ  ^ALL  E.N.dI®^ 
r rAiL  ».l‘'c°a2  C*LL  R.TAURG  c‘'LL  8 , ’'■'A jT{;Op  {;All  Et£Ll<»c.PO 

IFI  K:yIX  = c let  0ISKI0*C  *-E7  TsvaP=0  let  TASIO«o 

Lj;T  SiI|.tN-j.:-  = C' L:-T  S'f2r}..r5=0~L?t"TLG'TlJ^0 

T.£7  CXiLLsC  tj-T  APA?2*C  Le^  TAAug=0  LeT  AlOcI»0 
rT  A?AM  = : E-I  TAGTcaO  lEl  TSVP^  = 0 


7950T  0‘8-28-75  17.504  ciici  siKSC?7rT  Il'.S  f OS  “His  600/6000 


ussr  RdtAse  9, 


258 

259 


2^ 

261 

262 

UST 


265 

■76?" 


26'? 

* * * * 

269 


PRIKT  y.rSO  fOR  DIAGR05T1C  AID 


1 •* 

2 " 

1 ^ 

4 p.onTiHr  mqJiribt 

5 PRIKT  2 LIKES  THUS 

rL>GS ST^TE 


SIZE 


MEKOP.I  QUEUE 

6 FOP.  ExcH  I OF  «E^.0  PSIFI  1 LIKE  WITH  JObKoJi),  FL18(l)i  rl19(I), 
FL2'-(i».  Fl:2(t1,  Fi.23(i)»  Fl2^TlTrT-r3^TlJ» 

B LTCWfll,  ISIZE(I)  THUS 

#***'*•« 

9 RtTUpX  EHD  


7950“  Oi  08-28-75  'l7.504  ' CXCI  sia'scsi?!  11,5  ToF.  His  600/6000  USxf  RELEASE  9. 

270  T~~- 

271  2 " PRIST  CPUQ  fOR  DIAGSOSTIC  AID 

2"72  3 " 

273  4_  EOUttV-  CQPRIHT 

274  5 ■ PRIST  2 J,l!Jr  THUS 

_ UST  . FLAGS, state  SIZl 

"kOCESSOH  CI-'Vl’B 

27 7 6 FOR  r^c H I 0^  c^’-'Q  PRlXI  1 LIKE  VlT.H  JOrEO(I),  1116(1),  ?E19(I), 

27'5  7 Fi2i'n,  ri22(:i.  7123(11*  rL24(i)*  rTJ4(iy7“ 

279  8 I TC V { 1 1 . _ 1 S 1 2 E_(  X )_THas 

«**♦  #***«•#  #**  t 

_ 2ei  9 ret'jrs  tap 


795or  C1  08-28-75  17.504  CACI  SliiSCRlPt  11,5  Toll  Mis  600/6000 


USAF  RflKASt  9, 


SURSVsTkH  statistic's 

SV^SV37E^1  lAT 

KkY  InF'"^  IaT 

K_Z  Y _0 u 7 WT_IiT 

"disk  i70  IAT 

pkog”;^i  size 

CPU  7i”k  (S,^MPLED) 

CpU  7j”j;  (USebI 

SlSpO.sS/  TI«v  (kl9) 
Ot-Spo^p  TIKe  (iS'DlVlt 
'7l  'TY^~  STATE 

^•0^-’JSEm  cORt 

3W\P 

US’^FUe  j^he 

cu~  OF  cCRE 


"kITMOSS.  SLTMOsr,  HLT^iss.  SLTMlSSi'  RlTKiSS, 

SLT:i2SS.  MLT.rasS,  SLTf*35S.  MITK4SS,  SI-T:'i4SS,  MITM2SS,  SLTM5SS. 
SSSPSWAP,  MSSSWAPO.  S3SSWAPO  THUS  


«*«*«« 

****** 


STXKDA^^d  dEViATiOK' 

******.•• 

*.**.*,*>- 

******  .** 


****** 

****** 

****** 


■w^tT  m-xqpy 

^W“jr  ilrriOal  A^TgR  FS 


:ic.  cr  key  l"S ******»*J! *********.** 

;:c.  ''r  kcy”  outs  ******,**  *********,** 

"Ot  cp  :,isK  jf/o's ********* .*********•**___ 

’!0.  OF  FORCF  sSaPS  *««***,*•  *****•***,** 

70  t Of  SVAPS ******,** ***■>■>****,** 

565  30  " 

_ 366  31 IJ PRIHT  QUSOS  STATISTICS 

367-"  32  " 

36*  ''3  s:ap  2 oi'r?”T  u'.'ss _ _ 

-"363  ■■ 's^'—pRixf  TTi-tiss  vii;i-McrJc.  scpU2,”«>ie'::q»  Ske;-;2.  kdioq,  sdioO# 


365 

366 
'■  367- 

36* 

363 

37-' 

T71 

C'J3ur 


PRIHT  QUS:i£  STATISTICS 


37"  35 7S?'J3E 

T71  36  -lELlG, 

C'J.Tur  Les’gTH^ 

PsOC^sSo?  OUEUE 

"E"C=Y  QUEUE 

:iSK  I/O  QUEUE 
" 3 " " 3 S V A P P T K C 

" S r. A '?  .IN'  coRe 

''F''.E"’i  U7ERS 

•JSF*r-  FOR  COP.S 

•J_sr?3  EAIGIBAE  FqR  cpu 
3ei  37  STOP  END 


"ISFUjE.  rSF'JSE*  “.iN’COhE*  SINCORE*  •‘'TAURc.  STAUR3,  MWAIT,  SVAIT,_ 
•1ELI3,  SELIG  T3U3 

KTjN  STASCaBD  deviation 

" *■*»*,**  '■  *****.** 


***♦,*♦ 

****** 


***** 

-***•* 


**♦•,** 

■■*v*jr^"*v 

****.** 


***** 

***** 

***** 


m 


“7950T  01  03"28-75  17.'50«  CXCI  siksCRIPT  II.5  foR' His  600/'6060  ' ' 


ENTRY  TC  allocator 


“06  4 EVENT  XLLOCI 

“07  '"'5  ■ EVaiAG  iiHOS  THUS 

ALLoCi  AT  ********.* 

“09  '*  f IF'TsFT.G  EO'  1 ScHETUtr.  A 'LINSV~Xlf';006  HS‘,  HETUSir 

“10  7 ElSr  IF  iiPVF  eQ  1 SrHioULE  A WAP  IN  ,01  HS,  ReTURM 


9 •'  SCHEDULE  NEXT  SUBSYSTEM  IN  CPUQ 

10  eLSe  ‘PAt>*  ArsQ  i TO  ALOj;i 

11  Let  TLELGaj  Let  xtta.on  _ 

“12  'PaP.  1'  for  Each  ust  of  cPUQ  do 

13  ADO  ‘.02  TO  EXT 


4 IF  FLin  + FLl9-t-rL21*FL23  eQ 

5 add  1 TO_aPaP2 

tF  fl3U  nO  1 ScHF.D’JtS  A>>'  SdPT^IN  eXT+,0'22  WS~.  RET\rRM 

jLSs  ScHed'Jle.  a Rt,TSSX  iN  eXI»0.1  Ms. 

Let  fl24«o 


usaf  rbleasR  9, 


795oT"Oi  08-28-75  17. SOU  C*CI  Slf.SCHIPI  II.T  FOU  His  600/6000' 


usaf  rciersb  9,- 


" KE.10R7  ULOCaTOP  PROCESS 

~n 

EVENT  :iAP  

eVdia'c  sh6«  thus 

k****»*^*  

ado  1 iet  ext»6 

LF.T  HP^EsO  

3££_I'-  SPEClAl  KE'1  ACTIOS  HAITI^ 

'l?  SPACT  vO’  l'  CALL  SPKACI  " 

EtSE  LE"  :;aPtm=time'.v 

' ■ rHv(,K  UP  DN  L'PGEST  USER  IF  ANT 

IF  1AI-"<-'t  0 Aon  '.726  TO  £XT  GO  TO  K^P.2. 


?LS.'  1?  2^'r-‘T  L.j  Sh'dle(TAiI.1  AdD  TO  EXT  GO  TO  «AP,2A 

rlSS  Vjr,  .jU6.TO_eXT  

r T cr  i \n  1 Tr\  iMtoO 


E'SE  A)d  1 to  AMAP2 

I£T  lAUP'oTa-  LET  2aURVT«0 

• « 

• • FTKO  USERS  TQ  SNAP  OUT 

'.lAP.S*  let  F6»0 

_roK_SA^H  us’^  or  'lE'io.co 

~:F  Kl  10  + "L21vFL22  + rL23  EO  0 

aDJ  .03  TO  EXT_  

IF  F-3U  EO  C GO  TO  MAP, 4 

r.Lsr.  ?6  e:  0 lET  R6=UST 

ELSE  £L3‘.  LOOP 


0Iu~W>:  detcct' A 'force  svap?"  * 

•.''.XP.3-'  tr-  ?6  £0  0 Tt_T.?ACI  eO  0 SCnjOULE  AS  ALLOCI  JN  eXT  + 0, 
KE'URS 

ELSE  SCHEDULE  AS  S7p  IN  EXT  US. 

LET  AKU2a1 

?ETU?K 

ELSE  LET  UST='H6 

- rr  m TO  GET  CORE  FOR  'J03  ' 

•y.AP.x*  Call  hba 

" ir  UNSUCCESSFUL,  CALL  3VAP  DEClSlCC  PROCESSOR 

if *me::aLocox  eo  o schedule  a.:  sl?  in  e^t*0i016  ss, 

_5l)J  1 TO  ASDP 

■"  Lr:i"A/.C2=LSiZE 

RETURN 

y S"CCUSSFUL.  SWAP^JOJ  j;_N_  

'else  call  S'-IN 

R £ s C M E r UL £ A «Ap  IS  E n i Oj 0 3_J Sj 

return" 

f 4 

~ urgent  USER  GOT  CORE.  TAKE  DOXN  CORE  FENCE 
LV'  Li  2 Al.,l  E T _ U S T »_1  AJ  A V^T 


01  US, 


- 


7950T'0i  08i28-7S  I’l.SOU  CACl'llKSCRIPt  11,5'PoR'HlS  600/6000  ' USAf  RplEASE  9 

«62  ' S2'  ADDTo"13  T0~Exr 

<*63  53  LET  1aURVT»'‘/ 


7950T  Ol  ■ 0*8-23-75  “ M.SQH  CaCI  SIMSCRIPI  11, 5 PoB  His'  60*0/6060 


USAP  HrlEASB  9V 


489 

490 
49  1 

492 

493 

40() 

SoP 

456 

«97" 
!i  0 9 


••  SyAP  DECISIOK  PROCESSOR 

» * ■■■-  ■-  - _ _ 

" SVaP  JLL  JOBS  > _OR„«  JIZP  REJUI»ED_ 
iVs-VT  SjP 

EVDIAG  show  thus 


If  SFUSr  Gg  2*T.S5P  fP  »?>cP  gO  0 SCHEDULE  aH  aLIOcI  IH  0,0‘»  HS, 

returk 

^E_L 3 E _E ESe  L eT  A«S1sQ 

" seaR;::  iIbeorp  oueue  por  kep  i/o  Hoadslocxed  jobs 

let  EXr*'J. '5  i OR  £Ve3P  'JSI  ok  IeMO  do 

tP  rAi9-*-ri22  rO  2 AXn  FL2H-PL23  eO  0 

a03  • .-.24  To  lx: 

■CF_^3IZEj;fLA‘/!'’'J  GO  TO  SDP.2B 

else  let  a'!N''*OSI 

else  loop 


?03 

19 

" oxr  '4E  rixo  akt 

JOB  TO  S»AP  OUT? 

5'0<) 

20 

IF  A-1K1  eO  SCHeo'-'LE 

n Sd?3  IK  ezt  h5. 

RETURN 

" SVA?  O’lT  JOB_rOUND*. 

else  Let  ust^a^-si 

♦SD?.2r*  ciLL  s:<0UT 

LEV  A.';V1  = 0 

4 • 

• sEPEirToi'  Hoai:  jc3s7 

? E S C H ? LE  AS  SOP  iH  EXT  P.S. 

“set'j'r.v  "£\id 
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520 

521 


» • 

f • 


522 

— T 

— r» 

523 

4 

EVENT  S 

$24 

- s 

2VDIAG 

SdP3 

• ««««•*** 

#%  * • 

- 526- 

‘6 

ir'TIKE 

527 

7 

AL-0 

523 

6 

XT 

529 

9 

530 

10 

4, 

531 

1 1 

ELSE 

53? 

12 

J-ET  ft  So 

533 

13 

LeT  t*0 

SCAE'  hkmohy  queue  fob  urgent  USeBS 


1 TO  ASn3c 


RETURN 


535 

'536 

537 

53? 

S3« 


■3-iu 
5tt1 
■Su:' 
5u3 
'Sui'" 
5(.5 


14  let 
13  _LeT 
"i6 

.J7_ 

18  let 

1q  FOE 


« « 
• • 


T>lUTi:0 


_ TCK'S_  E>'TIR 
EX7=0'.  o4  " 
rVrt.Y  -JST  or  H£?)Q  pQ 


MEXORT  QUEUE 


20 

21_ 

22 

23_ 

' 2k 

25 


iF  >u19*rL2l  + FL22^rL23  K£  6 GO  TO  5pt>,3x 

ELSs-  ^3^  0.057  TO  ext  _ 

~~I'  Ti.'e.V-LT-IWT  Le  X^sifl  GO'TO  Sd>i3X 

_£tlS 


CALCULATE  JOS  VAlT  FACTOR  DEPENDING 


>4 
5iil 
c,  s 


26 

27 


» w 
"e 


sso 

?S1 


?8 

2?_ 

To 

31 


r' 

5ir~ 

553 

32 

33  ' ' 

else  If  Ti''i. v-lt;% 

A 

< 

554 

34  ' ' 

SEE  IF  HE  VAS  3C 

555 

35 

SL-">s  I?  FL34  EO  1 

556 

36 

LET  ~L34=0 

> 

557 

37 

call  ATC-!G(4) 

ON  SX'i-  »No  Ti'IE  ALReAdX  KAITed 
ToP‘.3A'  Let  VTFACaLSlU_ 

Tf*  T!'f'-*L5T7.r  ' 

JX^IZXIT.  GO.  TaNtS  Let  t^T"AC=«'TFAC*^A^?B 
ELE'.’Te'I ‘'VT? AC*VTl  *n;7lAS'«? 

XT  VTfAC  L£  TASNT  LeT  WTt  aC«TAS'»’T 


ado  .,02  TO  EXT 
GO  TO  SD?.3x 


= EGISTEP  HiR  AS  AX  U3GENr“U5'£jrr 
AOO  1 TO  I 


At;>  1 TO  TAAUG 
LET  URGT=TIrF. vLLt-.T-VTFAC 


iViiswircH  xe  o'VRxxt  i iike~utk“Jcbno,  ubgt,-tik37v  thus' 

OUKD  URGfVi  FO*  KS.  AT  •***»•♦«,♦• 

Eljr'  I?  u5gt  gf  taXut 


- . TAlUT 

LET  TaL'TsURoT  let  ITA^UTsUST 
ELSE  aOO  3*  ^^2  To  EAi 

Tj?'.3x*  Loop 
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7950T  01  08-28-75  17.504  CACl  SIRSCaiPI  "lI.rTon  HIS  6OT/6OOO  USAF  REIEASS  9, 

575  5l^  LET  TAURC»i 

573  52  schedule  S3P4  IK  EXT  fts'.  »ETUKM 

3 E»0 


i 


7950T‘0r  0'8-28-75  17.504  ~cici  siKSCRlPT  Il'.S  fOB  HiS  600/6000 


" rrcioE  wketheb  to  grow  tss  size 


EVEKT  SOPH 
eVdI^S  SiiO'5  THUS 


USAP  BjLeXSE  9, 


SOPH 

581 

582 
36T 

58'4 

565 

5g6 

sa-' 

5gn 

5'6T 

_^S0 

551 

592 

■■■591 

c;  •• 


6'  ir  T^HUT  E6  j S’cHEOULE  a»  SDP6  IH  O'.OOS'hS, 

7 RSTURK 

8 else  if  lt  Iasid  Schedule  so 

9 retubs  _ _ 

lo"  else  I?  TiSe'.V-T^LcT'lT  Tj^ScF  ScHedULe'^K  S5p5  iH  0',017  ns, 

11  SeTUSK 

12  else  iK  t^hol  5e  T;.cOK  Schedule  a®  sdps  in  o'.o28  hs', 

13  PeTURS ^ 

14  else 

1 5 _ *j 

16  NEV  SIZE  bequest 

17  „lrT_TAM0A«7A-0p  + TXnji_ 

Vh  zt  T;^koe  gt  :A“-ns  leT  t^hol=TacC8  " 

In ;F  T^HOL  Gf  T^^ImS  S - H f.qULe  i,N  SrP5  iK  ,048  HS 

20  LeT~T^KOL=0  SeTUB'N 

21  fLSr 

”22  LET  TaHOL»Ta;1?1S 

23  else 

24  add  1 TO  TsiPC 

25  let  1P,\CTg1 

26  SCHEOULF.  rH  SOPS  IN  .057 

27  BET'JBK  END 


795QT  6l  08-28-75  17.504  CACi  SIftSCRIPI  11,5  FqR  HIS  SOO/6000  USAF  RrLEASE  9. 

603  T'"*' 

60“  2 * ' SEt  U?  CORE  FEN’CE  FOR  URGENT  USE® 

“60S  3 

60^  4 JIVES'^  SDV5  

607  5 eVoIAu  show’ thus 

S5?5  at  *♦♦**»•*.*  

60o  6 L!.;T  rXT*0‘.6-'5 

6 10  7 1/  2,Ur-’7  rx  0 GO  T 


h 

t 
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7950T  Oi  08-28-75  if.SOU  ' cici  “siKSCIilPT  11,5  PoR  His  600/6000 

662  1 - - - 

663  2 " PKBroR';  SPKCIJil  riEIORl  ACTIOK 

561:  3 ’■•  rrssncpHORriNCRfASE  cra  oECHEX^iT 

665  ^ '• 

666  5 SOOTIKE  SPHACT  - - - ■ 

567  6 RDIAG 

S?-,ACT  CALLED  ' ^ " 

56-)  7 xDO  0.011  to  IXI 

570  8 iJ  TxKOL  EO  a 

571  9 _ LET  XPxCT»0 

672  io  " ""‘'ET’-’RX 

673  11  else  if  Tj^HOL  Le  T^cOS  SO  TO  SPX.3 

67«  12  - 

675  13  ••  r-'CREA.S£  T6S  CORE  SIZE  

576  fi*  EISe  aOO  0.  ' 17  77  rxT  I-  TIKE . V-TxLcI  1-T  TxGfll  »ETO*» 

677  15  rLSE  A75  1 TO  SIIrTS'C?  *00  C‘S  7°  EXT 

67?  16  IP  S-SVlTcH  Ke  0 ?Fi‘:i  1 like  ■-’HH  TxHOL,  Tise.V  ThUS 

Sjlj.  i-'’CSrAS£2  TO  **•••<  XT  _ 


560 

66* 

17 

13 

else 

4 * 

go' TO  s pm'.  4 

Tei 

19 

4 • 

OECREASE  T3S 

663 

20 

• SPM 

.3'  IF  TjHOL  E 

6£L 

21" 

else 

ir  t,“o'l  Le  3 

585 

22 

else 

I?  oHOLod^rL 

68  6 

23  " 

else 

Let  titim-.v- 

5?7 

2U 

ir  r 

GE  TA’MC  00  T 

6£r  25  ELSE  I:'  T IT  T»T"C  30  TC  SPK.5 

565  26  ELSE  x'>l;  1 TO  SlOt'EO  f.;0  0,22  TO  EXT 

‘5:  7’’  It  scs'crcH  VS  0 p':;.'T  i like  vith  txhOL#  ?i.ie,v  thus 

ilOv  E-.C.5EAS0D  :o  •'•'•A  xr 


I & 


& - 

25 

ELSE 

5e3 

29 

4 * 

30 

• 4 

Vl-JATE  CORE  S 

69s 

31 

* 5 p V ^ 

LET  EWOLEd 

^ 3 { 

32 

*S5.<, 

' LET  TAHOLa 

‘97 

33 

LET  ” 

PSCV»0 

59? 

3j 

LET  3 

P ‘.FnsO 

69'- 

35 

' SF'C 

-E'  LET  rxLCIe 

'o: 

36 

RETL-* 

!> 

■'01 

37 

4 4 

’C2 

38 

4 • 

SEE  IF  RFO’JES 

7o3 

19 

•S?M. 

5*  IF  S'Mr?  -0 

^0  ^ 

no 

else 

In  *"  T T — T ^ V • $ 

7p5 

ni 

ZT  T 

GE  7A7M7  30  TO 

<•2 

ELSl 

GO  TO  s^M.ns 

7Q7 

u3 

EKO 

F 


14-2 


& 


f 


’'“5^ 


7950T  0r  08-28-75  I'fVsOU  CACI  SIRSCPIPi  li’,5  lOF.  His  600/6000  "^  ' USAF  ReIeASE  9, 

765  2 " SEE  IF  «E  CAK  INCREASE  TSS  CORE  SlEj 

~T6T 3“^^ 

767  4 _ ROUTINE  JlBiiJ 

765  ■ 5 RDIaG 

!<BA3  called  

770  6 IF  ■rx/E.V-LT’i'WT  GE  TAMAW 

7 71  7 Apr;  0.Q2S  TO  eXT 

772  8 RETUkN 

__  773  9 2LSe  if  TaHOL  PS  ISl^E 

77(1  ‘ 10  ■ ^;;0  0.0  77  to' EXT 

775  11  RETVhN 

77-  12  else  Let  Tak6I=lsize 

777  13  I.ET  ;i>'AC7ai 

7't^  14  IF  TaKOL-TaCOR  SE  TaMII 

7’’o  IS aDO  0.057  TO  EXT 

750  16  return 

76 1_  17  ELSg  17  TACOF.+rA-^ir  _GT_ TaX:!S_LET_TaHOLsTaK|1S 

7o?  ■"  18  'rL3E“Aj5  u'.  H To'eXT  ' ' ' 

7S3  1o  return  end 


I 


• 


! 


i 


" -•^T»!»**»p^  satTfr^ri^*^ 


i 

I 


i 


) 


795qT  0-  '0'8-28-75  1*7.504  CaCI  SIKSCRIPX  Il’.SnToK  Hls'600/6000  USAF  RflEAS*  9, 


784 

1 

« # 

785 

2 

•'  MEnORY  BUrrER  DEAIL0CATO8 

/ 8 6 

3 

* ' 

787 

4 

ROUTINE  MBB 

788 

5 

pdiag 

>1BC  called 

79f 

6 

f • 

791 

7 

" search  ilEHORT  MAP  FOR  UST  TO  BE  DEALLOCATED 

'97. 

8 

Add  0.073  TO  ext 

793 

9 

let  I*HEaD 

7gu 

10 

•Kbd.Ia'  if  ibiTalii  he  ust  let  i-sucfi) 

795 

11 

IF  I EO  ■. 

796 

12 

riETUojl 

797 

13 

ELSf  CO  TO  Mao'.  ii 

7ge 

14 

' ' 

799 

15 

" REMOVE  UST  AMp  UPDATE  MEMORY  .MAP 

80c 

16 

vLSj  leT  sucfpPso'di )*suc(il 

801 

17 

.iF  I.^'ldAlV  .. 

002 

18 

LeT  PRrD(5t'c(l)  J=pRed(i) 

3 03 

19 

else  I’-  1 ro  tiil 

C 0 1| 

20 

let  TAlL*Prrj)(Il 

«C5 

21 

else  »:r>  SHOLE(I)+SJOb(I)  to  SHOLE(PREDU)  ) 

8:0 

22 

let  SUcll)=>VAil< 

?07 

23 

Let  AVAILar 

ao? 

24 

IF  SJOod)  GS  2 Let  MPWE=1  else 

?C4 

23 

CALL  E-V 

R ir 

26 

ADD  0.355  TO  EXT 

411  27  RETURN  ElID 


I 


1A5 


VERIFY  MEMORY  MAP  AKO  CAtCOlATP  CqPE  STATISTICS 


4 ROUTINE  KMV 

5 RCIAG 

«KV  CAttED^  _ 

6 Add  0.019  lb  ext 

7 IF  MSVlTrK  Vy.  0 PRINT  2 LINES  THUS 


MEMORY  MAP 

program  hOLE  


?22 

8 

rlSr  LrT  TOTcORsO 

923 

9 

_LET  S 

92- 

10 

'NEXT'  add  '..913 

? 25 

11 

IF  MSVIIcjk  Np  0 ;> 

12  SJCB(I),  5F0Le(I)  thus 

*t*t  *♦* 

“ P2f"^  13  flSE 

-2S  _ 1“  LET  T0TC0RcT0Trnr-^-Sj0B(I1»SHOI.E(I) 

?3C  15  ir  i NE  Tail 

13  1 16 LET  i=sUr(ll 

?32  17  GO  TO  NeXT 

?33__  18 lUE_l.,nT.  cORs:7E-fTO.TC0j> 

'03«  I9  " 

£35 25 COt.PAF"  SUM  Op  ME/jORY  MAP  PEOGRA’*-  ASD 

23f  21  ''  '•CLL  SIZES  kith  TsS  cO^'E  SIZE. 


22 lL-V^c.-:y.  t ?..7<.oOF..  r 

e’^pOR  - Kr.MOf.Y  K.AF  lOj,S  VOT  VektFY 
STOP 


;Ke  as  follows 


23„ 

..STOP 

24 

« • 

25 

9CAF  0 

26 

' ' " *■'  c 1 2 

2JL 

4 • 

28 

ELSE  LtT  JsC 

29 

rcR  FVm  US 

30 

II  -L19+ 

31 

F.L«i  Leo 

32 

LET  VAtTCOPs 

or  crii?  D 


4 IF  ILie^F-IO^-Fl  21*Tt23  + F 

51  35  _ . AOC^.1.jo_J 

52' "36  " ELSi  Lcdr  " 

53  37_  LET  ELlr,CPU=J_  _LFT  USXfTUST_ 

54 38  "retupn  End 


■”7956t'  OV  ‘68-28-75  17'.50U  cici  SlKSCRIPl  Il'.S'roR  His  600/6000  ‘ USAP  RSLEAsE  9. 

855  ■ 

i 356  2 " SWAP  OUT  JOB 

ST7 3 — 

853  4 ROUTIKE  SWeUT 

859  5 KDIAG  ■ ■ 

SWOUT  CAllCD 
861  6 Let  U"22S0 

t-  ; 862  7 let  FL21=1 

I 8^63  8 j^DP  1 TO  TSW^P 

f • 864  9 iF  rKi9  ko  1 Let  rii9»i 

*■  i ■ 865  10'  'let  " FL'SUiO  ' ■ 

I'  866  11  ELSE  CrLL  SWPLOd) 

867  12  Aor  0.11  TO  e^T' 

868  13  return  end 


USAF  EjliiASr  9 


7950T  01  08-28-75  17.504  cAci  SIKSCBIPT  II. 5 ^OB  Hjs  600/6000 


PEKTORS  SWAP  JiN  A»D  OUT) 


3 — n 

4 

BOUTIKE  SWPLt)(DlR> 

S 

bdiag 

SVPEO 

CAUED 

6 

Add  1 TO  ltcI’2 

7 

C»tL  xTcHG?l) 

8 

XDD  1 TO  SFUSe 

9 

add  0.42  to  EtT 

10 

IF  DI^  E^  6 Sc!>eI/U1-E  a^' 

2.1LcC  GIVeK  ost  iK  SWaPdU*  tis 

11 

File  ikis  iallcc  jf 

THF  CCO  RETI’rB 

12 

ElSr.  icHECUlr  >N  I^UcC 

GIVES  UST  IE  sWaFD^B  KS. 

13 

At>d  lSi7.v  TO  tswpa 

rUE  IHiS  IAlLCC  iK  the  CCQ  BeIUBB  eRd 


-‘S** 


mmn 


7950T*Oi  08-28-75  " lt,504  Cici  SIRSCKIPT  11,5  FoB  His  '600/6000 ' 


USAF  BttEXSe  9, 


BEHOVE  KEI  IKpUT  JOBS  FROM  THE  CPUO 


U BOUTIKE  BURDHP 
■ 5 RcIaG 
BuFDKP  caufd 

6 IF  lNDc'Br"EQ“lT  xDD  0 ,0Ii6 'TO 'EXT  ■CO'IO'BOF'Pb 

7 ElSE  IF  UST  IS  li:  cPOQ 

S Re:!0Ve  this  I'St  FROX  J.PU0 

9 LE7  7LIL3=1  LeT  HPWr=i  FILE  THIS  UST  I*  HErtO 

10  {.All  ATrHGjO) ’ 

11  ZlSi  Lr.T  Fil9«1 

'12  jDO  o'.  1'  TO  r'XT 

13  IFQSV  L TrH  Kr  0 ri  IL  Ht'PPiHT  c*Lt  cO?RIHT  >lSe 

li*  *Bar'.3^''  {;Al£  AiOSRT 

_ 15  _Bl TU 


795ot"0i‘  08-28-75  ' 17. SOU  UCI  SiRSCtIPT  H.5  Po?  His  600/6000 
"’  940  i 

941  2 " START  KEK  I/O  ASO  SCHEDULE  COOBXPSY  CALI  EOS  IHPUT 

3 n 

943  4 P.OUTIKE  KI«« 

944  5 OdxG 

KlOSn_CALLEO 

"946  6 *0D  0.22  TO  ext 

947  7 " 


8 " SEE  ir  OUTPUT  ALP-ADT  IK  PROCBE 

949  9 •'  IP  SO.  CESTEOY  TH^T  c0t-'8T2ST  CA^^» 

95c  ‘io  "ir  fki3  eQ 

951  11  _ LEI  1*0UTCC 

S52  12  ca“cel  this  kiocc  Cabled  i 

T"i5  1 raoR  the  ccQ 


usae  release 


20  IF  LIIN  LE  tIRE.V 

21  • ‘ 

•'  COLLECT  FESPCsSE  TIRE 

Let  • £Fft»ii  ie.v-ltik 

24  LET  LT.''RS  = lT''RS*SESPf 

::=Ti“p.v  _ 


pLSp  Af)0  EX?C;:r!:TlAL.F(OUT!lE^f‘‘»  12  J T2  LTI» 
ic-KL’Jli:  A KICCC  GIVEK  UST.  IK  t'.A*.'^UIIJ'’-TIRE,V,0,0).BS,  _ 
I'  1^'  the  CCv 

T^rf  *:F'’o'?llNT*'rL'l5-t*'«lTK  JOrKC,  ilXE.v";  ITIK  THUS' 

■r  *...**..  *.  usttL  «***«*«♦.«♦ 


31  ELSE  AEi'l'BK 

32  ••  _ _ 

33  " PROCESS  ISFUT  OEBAIl 

34_  ELSE  AOr.  1 TC  LTC21 

35  ‘if  LUr  LE  TIRE.V  ‘ 


FESFO 
rTI  :e. 
-Lt'SS 
TIR 
orii 


ccc 


43  IF  KSVJ'ic:-:  KE  L rFiN'T  1 LISE  oIIK  JCLSO.  TirE.V, 
'•  start  iNfT  AT  ••••••«•,•«  u;:TIL 

'44'  else  {ILe  IHIS  kiocc 'is  the  CCO” 

45  RETURN'  EKO 


BO. 


USAF  RElEASC  9, 


■795oT'Oi  08-28-75’  ■ 17.50<i  CaCI  SIRSCKIPT  llVS  ^OS  Hjs  COO/6000 


'988 

9S9 

■9'97r 

991 

99?, 

993 

99!t 

OgS 


START  h’Et  I'ST  OS  APRIVAt 


ROUTINE  START 

ADD  1 TO  TSTRl 

• « 

CALL  CORS AMP 

« • 


937 

99? 

999 

IO0C 

1001 

TO'OT- 

1003 

1709 

I0.j5 

10:& 


—9  CREATE  UST  ENTITT  AKO  "AsSlGinTTRlBOTtS 

10  cB2aT“-  a UsT 

11  LeT  lSUh  = Si7ei,IST  LrT  VSiZe=LSi2e 

12  LeT  KlLL=crU-UF  LeT  V^PL'5UR=KtLL  LeT  c”K-F'J  = KILL 

13  Lr7  olOlAlsrlNE.j;  Lft  Xn AT«P iSi  .j;  Le7  K-iATsRiKF.j 

1 U Le^  I~*^’OrlC  ''F  T GT  C 

r.'  OlOlt  *=XlLLyi  LeT  VaiOij^Ti!^.3»DlClAl 


TT 

16 

17 

13 

19 


tLSv  LrT  1 = '''0KIN  jF  l GT  0 

Lrr  Kiii^=!>iLL/i  Let  vkii^t*c,5*kii^t 
j;LS£  ’.rT  i=.NOXC'J“  II  I GT  0 

“ll'T  KOTA1  sXlLL/I  let  VKCIXTaO,  5*KoIaT" 


• 

10C7 

20 

iLSv  L-0'  NxT-iC'-O.S*; 

- 

lOoS 

21 

LET  FL24=1 

1009 

22 

let  jOrNO*T3TRT  _ 

IO1: 

23 

let  LTTo  = II  '.r  .V  IrT 

1O1I 

24 

ltt  Tin,G=i  : rT 

, • 

no 

25 

If  fV3V:iTCH*S3SViTCh 

start 

' 

i:  i*< 

26 

'.LSE  CALL  AtCHGl-) 

r,  ib 

27 

If  CSVITCH  FE  C CAIL 

• 

~ i:i(^. 

23  - 

ADD  0.13  TO  ‘■XT 

1 *.  1 7 

2a 

••'FTUPS  FSD 

153 


; 600/6000  ' ^ US^r  RELE*SE  '9 


‘795dT  '0l  08-28-75  17',50U  CaCI  SIKSCBIPT'II.S' Fob  his  600/6000 


US^F  RFtEXsE  9,' 


1091 

1092 

— TOdT" 

1096 

1095 

FXFKTs 

1097 
_1098 

T09'9“ 

110c 

IIOI' 

1102 

1l03 


2 " EKTRY  TO  allocator  BY  INTERRUPT 

5— n 

4 EVENT  BXFNiR 

5 eVdiag  SHO&.jOPNO  ThUS 

********,*  £y 

6 remove  “UST  FfOt*  CPUd 

7 Let  TL L & =1  ri li  uy t_L y T_1 1_C PU 0 

8 IF  QS*”iTc”K  Kl  0 CA^L  cCFPlFT  E^-SE 

_9  EXeAcI 

10  ScHeeULi  ftLLOci  1-1  0’.22  hs. 


•'  Sample  next  interrupt  time, 

TF  NXTrN T ly  0 Lrl  KXIiNTaEXPOKESTlAL . F ( iNTHeAN, 9 ) 
else  Return  eNq 


7950T  Oi  0S-2a-75  17.504  CACI  SIhSCMPX  II. 5 fOF  His  600/6000 


USAF  RSLEASS  9, 


H06 
J107 
1 1o8' 
1109 
1 lie 


TAKE  ACCCl’MISG  AfTE?  IXTEP.RUP T 


l-i  12 

1113 

i 1 W 

11l5 
1 1 If 

11  r 
1 11? 
_1  1 19 
I’i  2? 
1121 


U ROtITlSE  EXEACT_ 

5 aplAC 

?XFACT  CALLED  

6 add  0.11  TO  EXf 

7 ' ' 


8 

9 

10 
1 1 
12 
13 


ADD 

ADO 


1U 

15  ELSE 


ACC'jy’JLAU  CPU  TIKE  USED  EY  SUrSVsTEfr~ANirTES , 

1 70  TJG'c  _ 

KEXT  TC  I.SPIS' 

NFXTTOTaSPT  ___  

\'e:<t  :c  ’a9TH 

I • • yjr • att”  c I 

ELSE  ■’I^•r.V-T^LST  G1  TLTL’-:  Le’T 


ADD 


iSp3x  L»T  KPyr»1 

LSFli 


EeTL'RN  iMp 
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7950T  or  01-28-75  i^.SOU  CaCI  StKSCFlPi~lI,"5  FoP  Kis  60076000 


~1122'  '1 

1123  2 

~tt:ti r 

H25  4 

1126  '5 

^^O^oPj,  AV 
‘1128  6 

112q  7 

fT^f  6 

1131  9 

”1132  10 

1133  11 

1134  12 

1135  13 

lTJf  14 


" Ktlf  INPUT  DEFaU 

? f ■ — ■■  — ~ — 

EVEPT  KOMdSL 

FVuIAG  SHO^I,“JOB^^O  TgOS 

»t**»*t*  Bl  *♦** 

" LET  iNDDRtiTl 

Ca^-L  EXa^ct 

ROn  1 TO  XfllN 
._CALl_B'JFp;iP 


10 

* • 

1 1 

" SAflPL 

12 

I.-£T  NX:;<iNr 

13 

ScUedUlf  ak 

14 

return  end 

rN  0.2  MS. 


'i  •■■'  ^ s^-'i'i!g»S*jas*e®.’K^  -• 


te*^i-*’'^  ■ ^'*i 


■793OT  Oi  08^28-75  17.504  cici  SIKSCRIPT  li^S  FoR  His  600/6000 


\iSKT  RBLEASF  9.' 


1 - 


'1152 

1153 

1 

2 

*'  CERAIL  TO  PERPORH  DISK  I/O 

“1^54“ 

J 

115s 

4 

EVSNT  DELDiO 

1156 

5 

EVniAG  show.joeno  Thus 

ORl-SlO 

AT  * 

0Y  «#*« 

1158 

6 

let  FL18«T'“ 

1159 

7 

CAtl.  EXExCf 

H65 

8 

add  1 TO  DISFIO 

1161 

_ 9 

add  1 TO  LSTIO 

1162 

10 

Let  sxtdio«dioiaT  let  voioiaT*kxtcio 

1163 

1 1 

4 • 

’ '16'- 

12 

" FILE~F'9'-DSI  i\‘  disc'.  IF  DIOO  ■«'aS  EKPiy 

1165 

13 

*'  start  'IO  KOV  A^^  SrUtiiUI.v  dIC  c°UPIeSY  call". 

ll6T“ 

14 

IF  01O-.  IS  £ ?TY 

1167 

15 

SC'-'TOULE  A DIOCC  GIVEK  UST  1H  EXPOKEKTI aL . F ( CIOKE aN , 10  J KS, 

11f,£ 

16 

FTir  rHi<^  rincc  is  the  ccq 

116<5 

17 

iLSi.  FUv  TEiS  UST  l\ST  iK  DIOC 

H7C 

1 5 

ScHEdUL-.  aH  aI<I-2cI  0.35  KS. 

1 171 

19 

EeTUrS  E'.in 

7>  ft,') 


795or  0r'06-2«-75  ' Vt/SOU  ~CKZX  SIMSCRIPX  II. 5 FoF  His  600/6000  USAF  RELEASE  9", 

1172  ^ . --  » 

1173  2 " DERAIL  TD  TERMIS’ATl  SUBSYSTEM 

3 f' 

1175  U EVENT  DRLRET  

ll?'^  5 eVoiAG  SHOV.jOsNO  THUS 

Dn’-K'.'T  AT  ****♦».*,*  By  *•*_* 

1175  6 call  EXEaCT 

1175  7 • • 

’1136  8 " CHECK  CPU  VSASE  Of  SUESySIEK. 

1181  9 IF  Aa£.vf-«,<-p'j.*„SFTS)  GT  1 

118  2 iC  PRI”T  1 LIS’e  wit-!  J0  = N0.  cHXcPO,  iSpTS  THUS 

*-il  eRROH  - ALLOCA’-rr  CPUs • USxc  ******,* 

113“  11  ELSE  CALL  SSIINI 

_ 1l£3 12  ScHE-jUL£  a!J  aLLOCI  IN  9’.  176  MS. 

use  13  RETURN'  END 


7950f"0i  ■ 08-28-75'  iT.SOU  ciici  SIKSCRIPI  Il‘,5  FoR  His  600/6000 


USAF  RflEAsB  9', 


'1137 

113S 

“I’Tsr- 

119c 

1191 

1192 

FlOCC 

11g6 

1157 

iige 

1199 

120' 


0~ 
* • 


KEY  iKPUT  AKD  OUTPUT  COURTESY  CAl-LS 


4 EVEX:  KIOCC  SAVINS  THE  EVIHI  HOTICE 

5 let  TUST  = ’Jsr  lEl  JfT  = KU3X 

6 EV!5IaG  SHO'.’iJOcNO  THUS 


7 IF  KSVlTcH  NT  ;•  FsIHT  1 L^BE  WITH  JOpKO,  TIKe.V  THUS 
•*  FlN’lS'irj  KtO  AT  *i*»*‘*»‘»,*» 


8 else  I'T  LTIN  = THS.V 

9 L-'T  Fk19=.- 

10  ‘ ' 

11  '•  SEc  IF  II  VAS  AS  OUTPUT 

12  IF  FL19  EC  ■ 


l201 

13 

GO  TO  <IOcC.1 

1202 

14 

else  LEf  FLlo»0 

i2q3 

15 

IF  Fl21  e'j  :• 

1704 

16 

IF  Fl22  eO  1 

1205 

I7 

REMOVE  THIS  UST  FROM 

12<16 

19 

L.T  TLFt3=1  rilE  THIS 

i2c~r 

19 

r.^ll  .T.H3(2) 

l20a 

20 

I‘  CsTlicH  NS  C caEL 

1209 

21 

GO  TC  XiOcC*'’ 

1210 

22 

EL3s  leT  :ipvf=i 

1211 

23 

rALL  ATrHG(4) 

I2i2 

24 

ELSE 

■ I2i3 

25 

'KIOCC.  1*  LET  VSTsT'jSt  BEHOVE 

12-|4 

26 

DEST.HCY  this  KIOCC 

1215 

27 

RETURS  END 

X 


r 


i 


f 

V 

t 


> 

r 


f 


795oT  6i  68-23-75  17. SOU  CuCI  SlRSCaiPT  II.S'roR  His  600/6000' 


USAF  RELEASE  9 


1216  1 •' 

1217  7 " disk  1/0  COUBtHSI  CALt 

1710  3 

1219  4 EVj:':t  DlOCC  SAVING  THE  EVENT  NOTICE 

1220  5 is"^  XUS'.'^UST  in  UST=d'J5I 

1221  6 SV7I^G_S_riJ)h',J0EX0  Tys_ 

OI^cc  AT  •***♦»•*'*'  or  *•*• 

1273  7 N-roVE  FiaST  U£I  FPon  CIOQ 

i22'*  8 EeT  FLia*) 

1225  i 

1226  10  " :i'ovv  KI1  TO'toP  or  THE  CPU’Q'. 

1227  1 1 SE“OVe  ThjcS  'JST  FROM  THj  j^PUC  

122?  12  Le7  TLFLGal  FiLr  X"l3  U£T  FIRST  IN  THE  cP'JQ 

_lr 2?  13  IF  OSViTr:-:  .<-  j rAlL  r2r?INI  ELSE 

123C  14  let  UST-=7-JsT 

12  31  15  11 _ 

1232  16  ••  SEE  IF  ANY  .HOSE  OIS'k' I/0*V  a'RE  WAITING, 

_ 1233  17,  BEN.CVE.Tr.IS  rlCCC  F53X_IHE  CCQ 

1?3«  is  IF  010.'  rs  •'.'CT  E-;ptT 


12-!£  1q B£OCKE"-‘ir  T-'I-  UCcC  GIVEN  F.DIOQ  IK  IXPONENTIaI.  F ( OIOH£a*»’»  1Q>  HS, 

12'36  20  Fl’-i.  Ciiis  tIOcc  IN  THE  CCQ 

1237  21. asiUSK 

1235  22'  else  OvITfioV  THIS  OIOcC 

I23s  ^ 23_  ?ETUSN..EK_d 


f 


I 


% 


■ tM.  ■ w "'Min;  f 'n  f r ' f »>•  w P? 


7950T’ Oi  08-28-75  17. SOU  CiiCi"  SISSCRIPI  11.5  ToR  His  600/6000  ' USAF  BEUAsB  9, 

I2u0  i“ ' ■ ■ ■ ■ 

124<  2 " SWj^p  OUT  COUFTEST  CAtl 

“TTaT 3 — 

121*3  4 EVENT  UU.CC  SAVING  THE  EVENT  NOTICE 

i24U  ■ s eet  tust»ust  Let  ust=susti  ' ' 

12c5  6 EVDIxG  SHOV.JOeNO  ThUS 

UlLcc  at  or  **J*"  ■ ■ “ 


12U7 

7 

SOdTRaCT  1 VROR  incose 

1T4S 

1249 

1250 

1251 

1252 

1253 

s~ 

9 

10 

11 

'12 

13 

Let  fl'TTT) 

LET  MPV:r»1 

" 50T  swapped  0**^ 

If  el  19  rO  : 

ir  Fl34  rO  1 

CUL  aTcHGJS) 

- 

- 

■T2'34 

1255 

1256 

1257 
1253 
l2Sf! 

14 

15 
■ 16 
• 17 

13 
. lq 

GO  TO  >LLcC» 

RLSv  r.LL  i'TcHG?4) 

GO  TO  xLLccA 

else.  ^2U  1 TO  Tj^SlO  _ 

call  a2cHG?3) 

ULLcC-.’  CiLI  -1«0 

-*  - 

- 

l2.,r 

12C.1 

20 

21 

SU^thaCT  1 ff.or  srosE 

Let  usT=Tbsr  asMovt  this  ullcc  frox  the  ccQ 

l26I  22  ->rSTf7V  TKiS  UlLcC 
1-^3  . _23__arTU3  ; vSjj 


■?S.  >,» 


795cT  Oi  ' 06-28-75  ' 17.50'.  C^CI  SlSSCI-IPT  11.5  FOK  His  600/6000  ' USAF  RElEAsE  9 

“1261!  l"~“ 

1265  2 


SvA?  I*!  COUBTeST  CALI 


» 1 


700or  Ol  08-29-75  17.504  ciicl  SIhSCKIPI  ll'.S  FqR  His  600/6000 


U3AF  BEIeASJ  9', 


1282 

12&3 


12-p 

1765 

4 

1266 

5 

lX*’3V  k 

r • 

1265 

6 

l2ao 

7 

12qC 

■"S' 

l2c  1 

9 

12^.2 

io 

12;3 

1 1 

12?U 

12 

12c5 

13 

l3rF 

14 

1 2g7 

15 

12;9 

16 

tINE  S'HVICE 


EV^1AG  SHO’/  THUS' 


I.E"  I.SrtliaO 
LET  ,:sr240» 


’-ET  -./-:  = 0.0  3 

IF  TI---.V-~i.7Ln  LT  TLSL/.  SO  TO  «S»K 

rL3v  : -T  rLOLjsTlHp’.V  

■•; : i‘'  -'j  is  ijLi 


I?  c?'30  is  eiph  let  mss24o*1 

•!*;  10  '.ssks 

Ei-’>;  GO  :o  -s'bOoo  


l2<jn  _ 

l3no  ' 
13'1 


17 

is 

19 


167 


f 1 

: t 

r r 

i f.  ' 

^ 1 

"■■l3-j2 
13C-3 
I*’-:- 
l3r5 
lice 
1 : : 7 

20 

21 

22 
73 
2<-“ 
25 

’y.ShKS’  iF  '.•:;ir.--'-Cj.5RT  LT  Ia<'‘7I  GOTj  rfSfJBO 

'•  cAicoL-’.T:  C0.5E  ltilhatiok  tc  See  ir  tss 

*'  ilO’  S-lTjLo  v;  3£;)JcED  . 

4 .V  7£''?=o 

Hoc?'  Ltv  = iSX  I*=SUcU) 

§ 

; 

Tl 

1 

i 

, 

■ 1 

■ 5 

2o 

ir  1 K'-'  1)  c.o  TO  LO’r 

1 

^ 3 ^ 's 

27 

EIEE  Li?  T„!>  !.'*:(  {~E '.P*  O0)/-'AC03)*T;,?”y>/2 

^ 1 

13 -C 

7f 

# • 

3 

r 

0-1 

2_c 

" riHL'  LA;’--?ST  pBOG.EA?,  I - STST3M, 

- 3 - 2 

30 

iiT 

’H 

r 1 

-30 

* 

rC'  ;vi-.Y  usr  r,r  iir-.o  oc 

i 

: 1 

; y ^ 

"iT~ 

:r  3?  *al?3  le?  fXLpTsrjTZi 

1 

0-' 

33 

:-.LOE  l-Ofip 

-.  k 

0 '1= 

3. 

i'o’  EV.'py  ijs?  np  c-’to  re 

55 

I?  Lsnv  GV  TALPS  Lr?  TaLPS=LSIZE 

[ 1 

* 2 • e 

36 

EL.Si  L?OP 

^ 1 

37 

IF  "S>r.-j  1 ?'1  TO  :'.5A250 

-nir- 

3 8 

zli^}  :■■  "z:  :-.v~r:.sr-  L?  ta.’ibi  go  tc  :.:S330C 

j 

\ 

071 

39 

iLri  l.“  -i-foiT 

■ s 

■|3:2 

40  ' 

IF  ALT?:;  5'-.  Tl  V-tA.^.BI  &0  to  !',SR309 

> I 

i3:3 

« 1 

'■LsE  :;•  ii"j.v--:alct  lt  tat'.'-'  go  to  esP-soo 

f # 

^ i3:- 

•*2 

LL5?.  IT  ta::-:-  n 0 30  tc  \3.-iio-?- 

1375 

43 

EL.i;.’-  IF  ta:  :'  t tap;f  g"  '’o  .'iSR300 

1 

■ V 

0:6 

H 4 

"TLS’-  ' TTiOT”'  Ti'  T,\COr-T.*S’I  GT“TiOl5r^iT  Cka>’5Z^TXcOR^7a3BT 

o:"' 

•iS 

TL8E  7Ar.-,'-TA">7.';  IE  lAS’lS  LET  CHA"G---*TASr.S 

r! 

o;f 

46 

ElCi  :*•  takcL  ;t.  o'go  tc  ‘SRIOO 

*. 

0 

13;  = 

-.7 

TLcF  If  cka>  ,1:  LT  ta’-ps  SC  TO  ::sR300 

O’' 

48 

-LgI  Ir  tIO-.v-taLct  It  tascf  go  to  t.sRsco  

; 

i I 

1 3 ; 1 

49 

iir,K  Let  ‘.PArTT-i 

r f 

-nijr 

"sy 

"TT'  ta-;-?l«ck/.n‘5E 

f 

033 

51 

add  1 TO  TSBBC 

■ 

795c'r  Oi'  08-29-75  ’ 17.509  CdCI  si.''.3CHXPT  li,5  t’oK  Hrs  600/6000’ 
1339  5y~''ADir"oT4‘.  TO  Exf  ’ 


U'SAF  R^LEAsS  9 


GO  To  MS?3kO 

LSE  if  TLFL3  + *in-T_  GE  1 ScHEDU’-S  A*’  Al-l-OCi  i::  EXT  KS.  SETOHK 
' T £ S IS  I D L * • * 

' ■ K>  LiiitviSK  tVc,.-c|  o::Trt  ::ext  ikTecrUpt, 

* Gl’r.SYS'r"  q'>  cO"a7ESY  CALI 


66  flse  A.):^  1 tt  te:  aa  it..  zkz?~= 

67  ir  iir.c, GF  ;;5i;3i  LEl_nPVFa1 

60  eLSe  L:"  t'xrFc=R:^''.c 

69  IF  cct  IS  ic:  irriY  leT  s '.rcc»7i;iE,x(r.ccC) 

7C  -LSI  L~r  w^Ki  T»=.‘;:R.r(KX7U£r*;  .coi,Ti“.EtV*TAG::i,KXTcc*0',  16) 
7J sc A*.  . AIIOCt  at  V A<  r 7-»|-X7 


S' 

te 

i 

w 

? 

w 

t 

i 

is 

t 

At 

• 

1 

1 

i 

i 

w 

1 

1 

- - 
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9A0C  is  the  principal  AFSC  organization  charged  with 
planning  and  executing  the  USAF  exploratory  and  advanced 
development  programs  for  information  sciences,  intelli- 
gence, command,  control  and  communications  technology , 
products  and  services  oriented  to  the  needs  of  the  USAF. 
Primary  RADC  mission  areas  arc  communica^j.ons,  electro- 
magnetic guidance  and  control,  surveillance  of  ground 
and  aerospace  objects,  intelligence  data  collection  and 
handling,  information  i,jstem  technology,  and  electronic 
reliability,  maintainability  and  compatibility . RADC 
has  mission  responsibility  as  assigned  by  AFSC  for  de- 
monstration and  acquisition  of  selected  subsystems  and 
systems  in  the  intelligence,  mapping,  charting,  command, 
co^^trol  and  communications  areas. 
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